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SHARP POCKET COMPUTER PC-1211 


APPLICATIONS MANUAL 


Thank you for your purchase of the Sharp Pocket Computer PC-1211. 
This booklet covers a variety of fields of science and exemplifies computation programs pertinent to 
those fields. We shall be delighted if you arrange those programs yourselfs by reference to the practice 
in this book so that they best serve your purposes and your computer can display its full capability to 
be a help for your solving complicated problems. 
This manual has been, on our side, edited in accordance with the following standard. We ask you to 
read it through before starting to operate your machine. 


1. Title 
Each program is given a brief TITLE summarizing the contents of the program. 


2. Program No. 


P4 shows this machine, next A ~X shows the classification. 


3. Formula 
This column shows the nature of each program and the mathematical expressions pertinent to it. 


4. Example 
In this column, the calculation example is given. 


5. Operation 
This column gives the key operation needed to execute a given program based on data shown in the 
column "Example". 


• Every program requires DEF mode setting 
(For the way ofDEF mode setting, consult the Instruction Manual of the PC-1211. 


• "CLOAD 
VLabef17 
[ENTER[ " refers to the key operation that is required when programs re- 
corded on a cassette tape are used. Therefore, this operation must not be made after pro- 
gramming has been accomplished in the PRO mode. 
Labels are, in principle, identical to the codes given in the column "PROGRAM NO." 


6. Program List 
The list, made by a special device, reveals the process of entering the program concerned. 
The relation of the program list and the key operation of the PC-1211 are explained in the next page. 
Write the program in the machine in accordance with the program list. 


(Note) Before used, every program must be, after written in the machine, checked enough by 
reference to "Exampe," etc. whether it is perfect or not. 


7. Memory Contents 


This list gives a part of memory contents included in each program. 
Meanwhile, note that the manual is subject to enlargement or revision without prior notice. 
If you fmd any imperfections in the manual, please write to us. 


(Notice) Our company is not reponsible at all for monetary losses and missed profits that could 
arise in the use of this applications manual. 
A sub-routine uses, in principle, the 501 th and subsequent lines. GO SUB 1 is two steps 
shorter than GO SUB 500. In terms of the number of steps, some programs are made so 
that smaller line numbers are affixed to their sub-routines. 


For program lists, note the following instructions. 


1. When you enter the program to the PC-1211 in accordance with the program list of this manual, set 
the machine at the PRO (program) mode and press the [HJ rEl lY\1] 
[fNrER] keys to clear the program 
memory. 
2. Press the [ENTER[ key at the end of each line. 


3. The above operation automatically forces a colon ( :) to follow directly behind each line number. 
No colon needs to be written. 


4. It requires a space command to create a blank between double wedges H 
H , but does not require 
it to create a blank behind each command that is expressed by two or more characters. 
The following exemplifies this. 


Numeric 0 


A colon directly behind each line number is entered without the need to press the [JJ 
key. 


" 
Press the ~ key following the Wfl] key. 


No need to press the ~ 
key. 
r- Press the [ENTER[ key, which creates a print 


J 
of line end mark. 


10: 
20: 
30: 


• A" :PAUSED .. PIA.NNING"' :~] 
INPUT "R= ";R, .. H= ";H,"l=~;";l,"N= "iN 
I=H/l:C=RA(1/6)/N 
r 


I 
L_ 
It is required to press the ~] key. 
L 
Press the GJ key following the [SHTI] key. 
r This indicates the § 
key located on the left of the [±] 


J 
J 
• 
Numeric 0 


key. 


410: IF (ASS F>=E-4)+(ABS G>=E-4)<>0LET A=A+ 
F:B=B+G:PAUSE F,G:GOTO 4DO 


420: GOSUB 900 
Ll ___ 
___ 


- 
.... This indicates the 0 key- a alphabet key. 


(Note) • Use the ffi[ij] or ~ key properly. 


• The number of the last line in the program list indicates the number of step used. 
5. After entering the contents of the program list to the PC-1211, when you execute the program 
without using a cassette tape, skip the operation r CLOAD " label n 
[ENTER[ 
..J and set the machine 
at the DEF (definable) mode. 


For [ Operation ] , 


" 
!r--·r------ Press the 1 sHnl !Wl keys 


CLOAD 'VA 7 v 
[NTER] 


When executing programs recorded on the tape (CLOAD), make theCA operation (press the [QRl key 
twice successively) before loading them. If the above operation is not made, an error could occur in 
print. The operation is not necessary when programs are written through keys. 


P4-A-1 
P4-A-2 
P4-A-3 
P4-A-4 
P4-A-5 


P4-A-6 


P4-A-7 


P4-A-8 
P4-A-9 
P4-A-10 
P4-A-ll 
P4-A-12 
P4-A-13 


P4-A-14 


P4-B-1 
P4-B--2 
P4-B-3 
P4-B-4 


P4-B-5 
P4-B-6 
P4-B-7 


P4-B-8 
P4-B-9 
P4-B-10 
P4-B-ll 
P4-B-12 


P4-B-13 
P4-B-14 
P4-B-15 
P4-B-16 
P4-B-17 
P4-B-18 
P4-B-19 
P4-B-20 
P4-B-21 
P4-B-22 
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SHARP 


Title 
PROGRAM NO. 
SIMULTANEOUS EQUATIONS 
p 4- A-1 


[ Formula] 


This program solves simultaneous equations by sweeping-out method. 


Express equations in matrices. 


Ax=b, A={ a ij}, x={x;}, b={b;} ( i, j=l-n) 


p=amm ( m=2-n) 


q=a im/P ( i=l-m-1) 


a .-;=a .-;-q • amj 
( i= 1-m) 


b 1 = b; -q • bm 


Thus repeating computations, the coefficient of i <j is obtained as 


aii = 0 


Hence, 


al!x 1 = b1, then x 1 = bdan 


a2,x, + a22X2 = b2, then x2 = (b2 - a2,x!)ja22 


[Example] 


(Ex. I) 
\ 2x,-2x, l3x,=2 
l 
Whon n momori"' 
5 X1 +2 x 2 - 
3 x 3 - 
9 


x1 +5xz-3x3=-12 
n - 11 = i (i + I) 


i elements 
r= 15711 
Possible up to 9 elements. 
X2--4.9048 


x3=-3.6508 


~ program ... data input 
~ program ... execute 
~ program ... re-display of results of computations 
[ Operation ] 
CLOAD v AI v ]ENTER] 


Input 
Display 
Note 
Input 
Display 
Note 


1 
OOIJ 
~ 
ORDER? 
11 (asl) 
1 ]ENTER] ? 


2 ~~e~~~ts)3 ]ENTER] 
? 
12 (a;r) 
5]ENTER] ? 


3 (a 11) 
2 ]ENTER] 
? 
13" 
(a~ - 3]ENTER] ? 


4 (a~ - 2 ]ENTER] 
? 
14 (d3 ) -12]ENTER] > 


5 (arJ 
3]ENTER] 
? 
15 
Execute 


6 (dl) 
2 ]ENTER] 
? 
16 
Ulilll 
[§] 
1 
1.571428571 
x1 display 


7 ( a21) 
5]ENTER] 
? 
17 
]ENTER] 2 -4. 9 0 4 7 6 I 9 0 7 
x 2 display 


B (a.;J 
2 ]ENTER] 
? 
18 
]ENTER] 3 -3.650793657 
x 3 display 


9 (a;J 
- 3 ]ENTER] 
? 
19 


10 (dz) 
9]ENTER] 
? 
20 


-1- 


PROGRAM NO. 
Title 
SIMULTANEOUS EQUATIONS 
P 4- A-1 


Memory content 
10: "A":INPUT "ORDER ?";A 


A 1 
n 
20: GOSUG 600 
30: B=A:END 
B 2 
m 
40: "S":GOSUB 570 
50: D=A(K) :IF D<>OGOTO 160 
c 3 
Address 
60: FOR G=1TO B-1 
D 4 
p 
70: GOSUB 500 
80: D=A(C) :IF D<>OGOTO 110 


E 5 
q 
90: rJEXT G 
100: PRINT "NO SOLUTION": END 
F 6 
v 
110: FOR H=1TO B-1 
G 7 
i 
120: GOSUB 520 
130: ACK)=A(K)+A(C):NEXT H 
H 8 
j 
140: GO SUB 540 
I 
For input 
150: A(K)=A(K)+A(C) 
9 
160: FOR G=1TO B-1 


J 10 
v 
170: GO SUB SOD 
180: E=A(C)ID:FOR H=1TO G-1 
K 11 
v 
190: GO SUB 520 


L 
b; 
200: A( C) =A( C)-E*I'I.(K) :NEXT H 
12 
210: GO SUB 540 


M 13 
220: ACO=ACO-E*I'\.(10 :NEXT G 
230: B=B-1:IF B>1GOTO 40 
N 14 
After b; 
240: FOR B=1TO A-1 


0 
15 
250: GO SUB 570 
Gij 
260: A ( C) =A ( C) I A (I<) : E =A ( C) 
p 16 
v 
270: FOR G=B+1TO A 
230: GO SUB 550 
Q 17 
290: ACO=ACO-E*A(K) 


R 18 
300: NEXT G:NEXT B 
310: B=A:GOSUB 570 
s 19 
320: A (C) =A (C) I A ( 10 
330: "B": FOR G=1TO A 
T 20 
3Lf0: GO SUB 550 


u 21 
350: I=A( C) 
360: PRINT USING "til! tt ff"; G;" 
";USING ;r 
v 22 
37C: NEXT G 
w 23 
380: END 
500: K=A*B+B+11:C=A*G+B+11 


X 24 
510: RETURN 
520: K=A*B+H+11:C=A*G+H+11 
y 25 
53.0: RETURN 
z 26 
540: K=B+11:C=G+11:RETURN 
550: C=G+11:K=A*G+B+11 
560: RETURN 
570: C=8+11:K=A*B+C:RETURN 
600: C=12: K=fl+12 
610: FO'R G=1TO A 
620: FOR H=1TO A 
6 3CJ: PAUSE USING "!.lf.t tt 1.1"; G ;1-1: INPUT I 
6L:.O: A(K)=I:K=K+1:NEXT H 
650: G E EP 1:IrJPUT I 
660: A(C)=I:C=C+1:NEXT G 
670: f( ETURN 
691 
-2- 


SHARP 


Title 


PROGRAM NO. 
INVERSE MATRIX 
P4- A-2 


[ Formula] 


This program determines an inverse matrix by sweeping-out method. 


A matrix is given: A = {a ij} ( i , j=1-n) 


a,;=a ;;+1 ( i =1-n) 


p=amm-1 
( m=t-n) 


amj=amj/p ( j=1-n) 


a;j=a;j-aim amj ( i = 1-n , i~ m) 


a;;=a;;-1 ( i = 1-n) 


As a result of computations above, [ aii] is changed to an inverse matrix of the original 
matrix. 


[ Example] 
-I 
4 
3 
2 
1 
I 
-1 
0 
0 


3 
3 
2 
I 
-1 
2 
-1 
0 


= 
2 
2 
2 
1 
0 
-1 
2 
-1 


I 
1 
1 
1 
0 
0 
-1 
2 


[ When n memories: 
Possible up to ~ 
elements 


Possible up to 11 elements. 


~ program ... data input 
[§] program ... execute 
[[] program ... correction of data 


[ Operation ] 
CLOAD v A2v ]ENTER] 


Input 
Display 
Note 
Input 
Display 
Note 


1 
OOfJ 
~ 
ORDER ? 
11 When correcting 


2 ( n) 
4 [NH~ 
? 
12 
[illi] [[] 


3 (au) 
4 ]ENTER] 
? 
13 (i) 
[ENTER] 


4 Ca12) 
3 [ENTER] 
? 
14 (j) 
]ENTER] 


5 
15 (Cor~fct 
value 
[ENTER] 


6 (am) 
!]ENTER] 
? 
16 


7 Ca21) 
3]ENTER] 
? 
17 


8 
18 Execute 
operation 
9 Can,.) 
I ]ENTER] > 
19 
ISH FT I [§] 
I 
I 
1.0000 (1, 1) solution 


10 
20 
]ENTER] 
I 
2 
-1.0000 (1, 2) solution 
-3- 


PROGRAM NO. 
Title 
INVERSE MATRIX 
P 4- A-2 


Memory content 
A 1 
n 
10: "A": INPUT "ORDER ?";A 


B 2 
20: I=10:FOR E=1TO A 
m 
30: FOR F=1TO A 
c 3 
p,q 
40: PAUSE USING "####";E;F:INPUT G 
SO: ACD=G:I=I+1 
D 4 
60: NEXT F:NEXT E 
E 5 
i 
70: END 
80: "S":FOR B=1TO A 
F 
6 
j 
90: GOSUB 500 


G 7 
For input 
100: A(H)=A(H)+1 
110: NEXT B 
H 8 
Address 
120: GOSUB 500 
I 
9 
Address 
130: D=ACH)-1 
140: IF D=OLET PRINT "NO SOLUTION":END 


,J 10 
a ij 
150: GOSUB 600 


K 11 
160: B=B-1 
170: IF B>OGOTO 120 


L 12 
180: FOR B=1TO A 


M 13 
190: GOSUB 500 
200: A(H)=A(H)-1:NEXT 8: BEEP 3 
N 14 
210: "B":I=10:FOR E=1TO A 


0 
220: FOR F=1TO A 
15 
230: PRINT USING "####";E;F;USING "fff~# ###. #t! 


p 16 
fltt";A(l) 
240: I=I+1 
Q 17 
250: NEXT F: NEXT E 
R 18 
260: END 
270: 
II F": p t\ us E"COR R ECT": H!PUT "I= ";E:Ir·~PUT 
s 19 
"J= ";F:HJPUT G 
T 20 
280: GOSUE 510 
290: A( I) =G: GOTO 270 
u 21 
500: C=B:GOTO 520 


v 22 
510: C=F 
520: C=C-A+9 r 
w 23 
530: H=A*B+C: I=!l.*E+C 
X 24 
540: R ETURr: 
600: FOR F=1TO A 
y 25 
610: GOSUB 510 


z 26 
620: A(H)=A(H)/D:NEXT F 
630: FOR E=1TO A 
640: IF B=EGOTO 690 
650: GOSUB 500 
660: D=A( 1): FOR F=1TO A 
6 70: GOSUB 510 
680: A( I) =A( 1)-D*P.CH) :NEXT F 
690: NEXT E: R ETUR~-i 


533 


-4- 


1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


SHARP 


Title 
DETERMINANT 


[ Formula] 


PROGRAM NO. 
P4-A-3 


This program transforms a matrix into a triangular matrix by sweeping-out method, and 
computes the determinant. 


Amatrixisgiven: {a;j} ( i, j=1-n) 


{ 


p=amm (m=2-n) 


q=-~m/P ( i=l-m-1) 


a,;-a;j-q• am; 
( j=1-m) 


Thus calculating, with respect to the element of i <i, we obtain 


Hence, det=au•a22•a 33 •······ ·ann 


[Example] 


(Ex. 1) 
(Ex. 2) 
(Ex. 3) 


lA) program 
[§] program 
[[] program 


I~ : I 
= -31 


data input 
execute 
correction of data 


[ Operation ] 
CLOADV A3V ffiffi] 


Input 
Display 
Note 


I SHFT[ 
lA] 
ORDER? 


(Nos)of 
rows 
2[ENTER[ 
? 


(au) 
2[ENTER[ 
? 


Ca12) 
3[ENHR[ 
? 


Ca1n) 


(a2l) 
5 [NfE_R] 
? 


11 


12 


13 


14 


15 


16 


17 


18 


19 


20 
-5- 


4 
7 
1 
8 


5 -1 
2 -4 


3 
12 -5 
6 


1 
4 
7 
2 


(Note) 
Max. 10 elements 


Input 


When correcting 


lS!i£!J 
[EJ 
Til 
[ENTER[ 


(j) 
[ENTER[ 


'-(Correct value)·[ENm]f 


Execute operation I 


L~fll ~ DET 


= -3276 


Display 
Note 


1 
(Ex. 1) 


PROGRAM NO. 
Title 
DETERMINANT 
P 4- A-3 


Memory content 


A 1 
n 


B 2 
m 
c 3 
j' 


D 
v 
1n• "A":INPUT "ORDER ? 
It • !! 
4 
Uo 
'" 
20: K=O:GOSUB 600 


E 5 
v 
30: EtlD 
F 6 
i 
40: "S":USING :B=PL:E=1 
50: GO SUS soo 


G 7 
j 
60: D=A(I):IF D=OGOSUB 70G 


H 8 
For input 
70: IF K=1 LET E=O:GOTO 10!J 
on. E=D*E:GOSU3 GOO 
....._~ \,_ .. 


I 
9 
Address 
on. 
,/ ,_ .. 3=B-1:If 3>1GOTO 
C'f"'t 
M)~.._, 


~ 10 
Address 
100: 
E=E*~1: P~ I ~-:T "DET",E:END 
118: "F" :PAUSE "CORRECT" :ItJPUT "I= ";F,"J= II 


K 11 
For decision 
• r 
•t 
, '.J, ;·l 


L 12 
120: GO SUS 510 
130: A(J)=H:GOTO 110 


M 13 
a ij 
500: C=3:GOTO 52C 
510: ,.. 
~ 
~.,=t .. J 
N 14 
520: C=C-A+i2 
0 
15 


--,,-, 
:;,..)!.J! I=MD+C :J =A* F+C: R ETURii 
600: J=13:FOR F=1TO P.:FOR G=1TO A 
p 16 
610: PAUSE USirJG IIi};;# t:"; F; G: IN PUT H 
Q 
17 
620: fi(J)=H:J=J+1 :NEXT G: t·J EXT F :RETURf'·l 
70C: FOR F=1 TO 8-i:GOSU!:: 500 
R 18 
71 n: D=/\(J) :IF D<>OGOTO 738 


s 19 
72:.1: rJEXT F :f~=1 :RETUr";N 
730: FOR G=ITO 8:GOSUC 
<; 1 r. 
- 
I l .. 


T 20 
740: 
A(l)=f~Cl)+t(J) :ND:T G:RCTURN 


u 21 
.'}QCJ: FOR F=1TO 0-1:GOSUB s cr: 


~10: L=P1(J) /D: FQf: G=ITO S-1 : GC!S:.i: S1J 
v 22 
82Q: A(J)=i\{J)-L*,n,(l) :NEJ:T G:NE>(T F:RETURN 


w 23 
L,S6 


X 24 
y 25 
z 26 


-6- 


SHARP 


Title 
PROGRAM NO. 
PRODUCT OF MATRICES 
P4- A-4 


[ Formula 1 


This program computes the product C (mn type) of an ml type matrix A and an ln type 
matrix B. 


'a11 a1z""" a1/!- 
.-bu 
- 
,.... 
- 
b1z ...... bm 
cu c12""" cln 


az1 
a~ 2 '".'" a~f! 
bz1 bzz""" bm 
c21 Czz""" Czn 
: 
: 
= 
.. .. 


am 1 am 2""" am£ 
b£1 bf!z·" ... bf!n 
'-cm1 Cmz" 
•• Cmn 
L... 
-I! 
L- 
- 
- 


Cij= _2 
a;j • bkj 
k=l 


[ Example 1 


- 
- 


-:J 


r 
- 
4 
0 -1 l' 


-5 
16 


-3 
3 
7 
-6 
= 
-8 
- 
5 


-9 
2 
5 
1 
2 -37 


5 -1 
3 
4 
43 
'- 
- 
'- 
- 


mf!+!!n+mn~144 


[ Operation 1 
CLOAD v A4 v ]ENTER] 


Input 
Display 
Note 
Input 
Display 
Note 


1 
OOil 
[AJ 
M= 
11 (bu) 
-1 [@11] ? 


2 (m) 
3]ENTER] L= 
12 


3 w 
3]ENTER] N= 
13 (bln) 
]ENTER] ? 


4 (n) 
I ]ENTER] ? 
14 


5 (au) 
4]ENTER] ? 
15 (bf!n) 
![ENTER] 1 1 
-3.0000 
( 1 , I) 


6 Ca12) 
0 ]ENTER] ? 
16 
]ENTER\ I 
2 
(1, 2) 


7 
17 


8 Ca21) 
-3]ENTER] ? 
18 


9 
: 
19 


10 (amp) 
5]ENTER] ? 
20 


-7- 


PROGRAM NO. 
Title 
PRODUCT OF MATRICES 
P 4- A-4 


Memory content 


A 
1 
m 
B 2 
f 
10: "A" :CLEAR 
c 3 
n 
20: INPUT "M= ";A,"L= ";B,"'N= ";C 
30: FOR F=1TO A 
D 4 
Input 
40: FOR G=1TO B 
E 5 
50: GOSUB 500 
60: E=B*(F-1)+G+10 
F 
6 
70: ACE>=D 


G 7 
80: NEXT G:NEXT F 
90: FOR F=1TO B 
H 8 
1 00 : FOR G=1 TO C 
I 
9 
110: GOSUB 500 
120: E=C*(F-1)~G+A*B+10 


"" 


10 
130: ACE>=D:NEXT G:NEXT F 


K 11 
Input data 
140: FOR F=1TO A 
au 
150: FOR G=1TO C 


l 
12 
a12 
160: E=C*CF-1)+G+B*(A+C>+10 


M 13 
170: FOR H=1TO B 
180: I=B*CF-1> +H+10 


N 14 
190: J=C*CH-1)+G+A*B+10 
200: A(E)=ACE)+A(I)*A(J) 
0 
15 
210: NEXT H:NEXT G:NEXT F 


p 16 
After input data 
220: l=I-2:FOR F=1TO A 
230: FOR G=1TO C 
Q 17 
Output data 
240: E=C*(F-1)+G+B*(A+C)+10:H=ACE) 


R 18 
Cu 
250: PRINT USING "####";F;G;USING "#####ff.#~ 
##";H 
s 19 
260: NEXT G:NEXT F:END 
T 20 
500: PAUSE USING "####";F;G:INPUT D 
510: RETURN 
u 21 
398 


v 22 
w 23 


X 24 
y 25 
z 26 
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SHARP 


Title 
MUTUAL CONVERSION, AND ADDITION AND SUBTRACTION I 


PROGRAM NO. 


BETWEEN DECIMAL NOTATION AND OTHER NOTATION 
P 4 -A-5 


[ Formula] 


Mutual conversion, and addition and subtraction between decimal notation and p-based 
notation. 


Program A: 
conversion from p-based notation into decimal notation 
Program B: 
conversion from decimal notation into p-based notation 
Program C: 
addition in p-based notation 
Program X: 
subtraction in p-based notation 
ProgramM: 
setting of p, and clearing of memory for acumulative total of addition 
and subtraction 


[Example] 


When pis 7 (Decimal numerals are enclosed in parentheses): 


(1) 
12-+9(10)· 
20-+ 14(10) 
(all heptal numerals, except 9, 14) 


(2) 
12+20+156-23-+ 165 


(NOTES) 1. When performing addition or subtraction, first set the value of p (operation 
of programiM]). 


2. When the base is larger than 10, the display is given in two digits each. 
3. Maximum 7 digits can be computed in up to decimal notation, and 5 digits 
in undecimal and higher notations. 


When performing addition or subtraction, refer to the example of operation 
below. 


[ Operation ] 
CLOAD vAS v (ENTER( 


Input 
Display 
Note 
Input 
Display 
Note 


1 
ISH FT I M 
BASE? 
11 
I SHFT( 
M 
BASE? 


2 (P) 
7 (ENTER( > 
12 
7 (ENTER( 


3 
13 
I SHFT( 
[Q] 
DATA= 


4 
~jjTI] ~ 
DATA= 
14 
12(£1TER( 
7 
12 


5 
12(ENT£R( 
7 
9 
Base, value 
15 
[ENTER( DATA= 


6 
(ENTER( 
DATA= 
16 
20[ENHR( 
7 
32 


7 
20 [ENTER( 
7 
14 
17 
[ENTER( DATA= 


8 
18 
156[ENHR( 
7 
221 


9 
19 
[SKIT] 
00 
DATA= 


10 
20 
23(ENHR( 
7 
165 
-9- 


Title 
MUTUAL CONVERSION, AND ADDITION AND SUBTRACTION 
PROGRAM NO. 


BETWEEN DECIMAL NOTATION AND OTHER NOTATION 
P 4 -A-5 


Memory content 


A 1 v 


B 2 v 
c 3 v 
1 : GOSUB S:BEEP 3:PRINT USING "########";I 


;G:RETURN 
D 4 v 
2: A=B:D=I:E=J:RETURN 
3: INPUT "DATA= ";A 


E 5 v 
4: E=I:D=J:RETURN 
F 6 v 
5: C=O:G=O 
6: F=A:A=INT (F/D) 
G 7 
Answer 
7: F=F-MD: G==IfH (EAC+.5)*F+G:C==C+1 


H 8 
8: IF C<>KGOTO 6 
9: RETURN 


I 
9 
Base 
10: "A":PAUSE US.ING "#####";I;" 
TO 
10" 


.J 10 v 
20: GOSUB 3 
30: GOSUB 1 
K 11 
v 
40: GOTO 10 
50: "8": PAUSE 
II 
10 
TO 
";USING "###";I 
L 12 
60: GOSUB 3 
M 13 
70: D=I:E=J:GOSUB 1 


N 


80: GOTO 50 


14 
90: "C":PAUSE USING "#####";I;" +" 
0 15 
100: GOSUB 3 
110: GOSUB 5 
p 16 
120: B=B+G:GOSUB 2 
Q 17 
130: GOSUB 1 
140: GOTO 90 


R 18 
150: "X":PAUSE USING "#####";I;" -.. 
s 19 
160: GOSUB 3:GOSUB 5 
170: B=B-G:GOSUB 2 
T 20 
180: GOSUB 1:GOTO 150 


u 21 
190: "M":B=O:INPUT "BASE ?" ; I 
200: IF 10>=ILET J=10:K=10:END 
v 22 
210: J=100: K=S: END 
w 23 
398 


X 24 
y 25 
z 26 
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SHARP 


Title 
MUTUAL CONVERSION BETWEEN RECTANGULAR 
I 


PROGRAM 
N~ 
COORDINATES AND POLAR COORDINATES 
P4-A-6 


[ Formula] 


Rectangular coordinates and polar coordinates are mutually converted in two- and three- 
dimensional space. 


When angle designation is DEG, inputs and outputs are made in DEG, when RAD is 
designated, in RAD. 


Two-dimensional space: 


o Rectangular coordinates to polar 
When x = y = 0, r = 0: e = undecided 
{ '~.J x' + y' 


When y ~ 0, 8 =COS-I (xjr) 
y 


When y < 0, 8 = -cos- 1 (xjr) 


o Polar coordinates to rectangular 


{X= TCOS 8 


p 


YP ~ 


y = rsin e 


Three-dimensional space: 


o Rectangular coordinates to polar 


When r = V x 2 + y 2 + z2 , x = y = z = 0, 
0 
r 
rp 


r = 0: e' ¢: undecided 
e =sin-! (z/r) 
z 
When x > 0, 


lfJ = tan- 1 (yjx) 
zp 
When x = 0, 
7 ------;~ 


/ r-?1; 


I 
If y ~ 0, l{) = 90° 
I 
If y < 0, l{) = -90° 


I 
I 
I 


When x <O, 
I 
0 
I 


If y ~ 0, 
lfJ = tan- 1 (yjx) + 180° 
I 
' 
Op 
'yp 
' 
I 
/ 
If y < 0, 
lfJ = tan- 1 (y/x)- 180° 
-~- --=-~~/ 
rp 
P' 


X 


Input 
Display 
Note 
Input 
Display 
Note 


1 
OO!J 
~ 
X= 
11 
; SH fT i 
[g 
X= 


2 (x) 
-1 [ffiii] Y= 
12 (x) 
-1 [£ITER) Y= 


3 (y) 
/3[£KTER) 
2 
120 
13 (y) 
2[£NT£R) Z= 


4 
14 (z) 
-3[Nffii] R= 
3.741657387 


5 
15 
[mnl THETA=-53.30077479 


6 
16 
[£NT£R) PHI= 
116.5650512 


7 
17 


8 
18 


9 
19 


10 
20 
-11- 


SHARP 


Title 
MUTUAL CONVERSION BETWEEN RECTANGULAR 
I 


PROGRAM NO. 


COORDINATES AND POLAR COORDINATES 
p4-A-6 


o Polar coordinates to rectangular 


r"~ 


(j cos q; 


y=rcos (} sin q; 


z=rsin (} 


~ program ... two-dimensional, rectangular to polar 


~ program ... two-dimensional, polar to rectangular 
[g program ... three-dimensional, rectangular to polar 
(Q] program ... three-dimensional, polar to rectangular 


[ Operation ] 
CLOAD v A6 v I ENTER I 


The examples refer to the case of DEG designation. 


Input 
Display 
Note 
Input 
Display 
Note 


1 
11 


2 
12 


3 
13 


4 
14 


5 
15 


6 
16 


7 
17 


8 
18 
9 
19 


10 
20 


-12- 


Title 
MUTUAL CONVERSION BETWEEN RECTANGULAR 
PROGRAM NO. 
COORDINATES AND POLAR COORDINATES 
P4-A-6 


Memory content 


A 1 
B 2 
10: "A":GOSUB 500 
c 3 
{} 
20: R=.f< X*X+Y*Y) 


D 4 
30: IF R=OPRINT "R=O THETA, PHI= ?":END 


40~ GOSUB 700 


E 5 
50: C=ACS (X/R)*A 
F 6 
f{J 
60: PRINT R,C:END 
70: "B":GOSUB 600:Y=R*SIN c 
G 7 
80: PRINT X,Y:END 


H 8 
90: "C":GOSUB 500 
100: INPUT "Z= "iZ 
I 
9 
110: R=fl. X* X+ Y* Y+ Z* Z) 


J 10 
120: IF R=OGOTO 30 
130: C=ASN ( Z/R) 
K 11 
140: IF X>OLET F=ATN (Y/X) :GOTO HlO 


L 12 
150: GOSUB 700 
160: IF X=OLET F=A*ACS O:GOTO 180 


M 13 
170: F=ATN (Y/X)+A*ACS -1 
N 14 
180: PRINT "R=",R:PRINT "THETA=",C:PRINT "PH 


I=",F 


0 15 
190: END 


p 
200: "D":GOSUB 600 
16 
210: INPUT "PHI= "iF 


Q 17 
220: X=X*COS F:Y=Y*SIN F:Z=R*SIN C 
230: PRINT "X=",X:PRINT "Y=",Y:PRINT "Z=",z 
R 18 
r 
240: END 
s 19 
500: INPUT "X= ";X,"Y= "iY 
510: USING : R ETURr~ 


T 20 
600: INPUT "R= ";R,"THETA= "iC 


u 21 
610: USING :X=R*COS C:Y=R*COS C :RETURN 
700: A=(Y=O)+SGN Y:RETURN 
v 22 
432 
w 23 


X 24 
X 
y 25 
y 
z 26 
z 


-13- 


SHARP 


Title 
ROOT DETERMINING CALCULATION ACCORDING 
PROGRAM NO. 
TO NEWTON'S METHOD 
P4-A-7 


[ Formula] 


Determine a root of a function according to Newton's method. 
f (xn) 
y 


1/ 


Xn+l =xn- f'(xn) 


I ~ I 


When the absolute value of the difference 
between Xn and Xn+l becomes less than 
10-8 , Xn is regarded as a root, and 
computation is terminated. 


I 


0 
vxl 
Xo 
X 
Here, !'(x) of linear differential is defined 
as follows: 


f(x+h)-f(x) 
f'(x)= 
h 
(h: minor section) 


When changing 10- 8 , vary E-8 in line 60. 
[Example] 


x3 - 
2 x 2 - x+ 2 = 0 
If error message is displayed in the process of 


Suppose, x 0 = 3 
} then, x = 2 


operation, change x 0 , h , and retry. 


h = w-4 


Write the function, as subroutine, after line 500. 


Method of writing (in the case of example above): 


Set to PRO mode (by pressing proper I MOOE I key). 


500B=( (X-2)*X-1 HX+2 [ENTER[ 


51 0 RETURN [ENTER[ 
This ends writing. 


Next, change to DEF mode, and execute. 


[ Operation ] 
CLOAD v A 7v [ENTER[ 


Input 
Display 
Note 
Input 
Display 
Note 


1 
[SHfTl 
~ 
XO= 
11 


2 Cxo) 
3 [ENTER[ H= 
12 


3 (h) 0.0001 [ENTER[ 
ANS. 
2 
13 


4 
14 


5 
15 


6 
16 


7 
17 


8 
18 


9 
19 


10 
20 


-14- 


Title 
ROOT DETERMINING CALCULATION ACCORDING 
PROGRAM NO. 
TO NEWTON~ METHOD 
P 4 -A-7 


Memory content 


A 1 
h 


B 2 
f(x) 


10: "A":INPUT "XO= ";C,"H= ";A 
c 3 
Xo 
20: X=C:GOSUB 500 


D 4 
f( x+h) 
30: Y=B:X=A+C 
40: GOSUB 500 


E 5 
50: D=C:C=D-A*Y/(8-Y) 


F 6 
60: IF ABS (D-C)>=E-8GOTO 20 
70: BEEP 3:PRINT "ANS.",C 


G 7 
80: END 


H 
500: B=((X-2)*X-1)*X+2 
8 
510: RETURN 


I 
9 
134 


J 10 


K 11 
Function (An example containing the following) 
L 12 
f(x)= ( ( x-2) x-1) x+2 
M 13 
= x3 -2x2 -x+2 
N 14 


0 15 
p 16 


Q 17 


R 18 
s 19 
T 20 
u 21 
v 22 
w 23 


X 24 
X 
y 25 
f(x) 
z 26 
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SHARP 


Title 


PROGRAM NO. 
QUADRATIC EQUATION 
P 4 ~A~S 


[ Formula 1 


Determine the roots of a quadratic equation ax2 + bx + c = 0 (a -=f. 0). 


~b±V'b 
2~4ac 
x= 
2a 


1) When b2 ~4ac > 0, the roots are 
3) When b2 ~4ac < 0, the roots are 
real roots: 
imaginary roots: 


~b±V'b 2 ~4ac 
Rear part: 


~b 
-~ 
x= 
2a 
2a 


2) When b 
2 ~4ac = 0, the roots are 
Imaginary part: 
V'4ac ~b 2 


equal roots: 
2a 


b 
x=~- 
2a 


[ Example 1 


(I) 
4 x 
2 ~x~J =0 
Two real roots: X= 0.64 ·····, ~0.39 ····· 


(2) 
5x2 +4x+1=0 
Imaginary roots: real part, ~0.4; imaginary part, 0.2 


(NOTE) 
In the case of two real roots, REAL and x 1 ,x2 are printed. 
In the case of equal root, 
EQUAL 
and x 1 are printed. 
In the case of imaginary roots, **REAL**, IMAGINARY , and 
real part and imaginary part are printed. 


[ Operation 1 
CLOADv A8v [[Nilll 


Input 
Display 
Note 
Input 
Display 
Note 


1 
~f]j ~ 
A~ 
11 
rsHlfl 
~ A= 
r- 


4 [ill!ID 
2 (a) 
Be~ 
12 (a) 
5LENHRI B= 


3 (b) 
~JJENHRJ C= 
13 (b) 
4 [ENTER] C= 


4 (c) 
~ I ~Nill] REAL 
6.403881E -{)1 
14 (c) 
1 [NTERI **REAL** 
~0.4 


5 
f- 
JENIE_Il 
REAL ~3.903881E-Ol 
15 
JillE~ IMAGINARY 
0.2 


6 
16 


7 
17 
Real part of imaginary root is displayed in **REAL**. 


8 
18 


9 
19 


10 
20 
-16- 


Title 
QUADRATIC EQUATION 
I PROGRAM NO. 


P 4 -A-8 


Memory content 


A 1 
a 


8 2 
b, -b/(2a) 


10: "A":INPUT "A= ";A,"B= ";S,"C= ";C 
c 3 
c 
20: B=-B/2/A 
D 4 
D 
30: D=B*B-C/A 
40: IF D=OGOTO 100 


E 5 
SO: IF D>OGOTO 120 


F 6 
60: Y=./{-D) 
70: PRINT "**REAL**",B 


G 7 
80: PRINT "IMAGINARY",y 


H 8 
90: END 
100: PRINT "EQUAL", B 


I 
9 
110: END 
J 10 
120: PRINT "REAL",B+fD 
130: PRINT "REAL",B-[D 


K 11 
140: END 


L 12 
174 


M 13 
N 14 


0 15 
p 16 


Q 17 
R 18 
s 19 
T 20 
u 21 
v 22 
w 23 


X 24 
y 25 
z 26 


-17- 


SHARP 


Title 
I 


PROGRAM NO. 
EQUATION OF THIRD DEGREE 
P4-A-9 


[ Formula] 


This program solves a cubic equation by Cardan's solution. 


Ax3+Bx2 +Cx+D= 0 (where A =f. 0, each coefficient being a real number.) 


The following equation is obtained by dividing every coefficient by A. 


x3+ a x 2+b x+c = 0 


If the second order term is eliminated by the conversion 
a 
x=y-3, 


y3+8py+ q=O 


b 
az 
ab 
2a3 
p= --- 
q=c- -+- 
8 
9 
8 
'Zl 


If y is let to equal u + v, the above equation - 
y 3 + 3 py + q = 0 - 
is: 


u3+ v3+8uv(u+v) + 8p(u+v) +q = 0 


Here, if u3 + v3 is let to equal -q, uv = - p. 


u3+ v3 = -q 


u3 v3 =-p 


This reveals that u3 and v3 are the roots of the quadratic equation t2 +qt-p3 =0. 


That is to say, 


1 
u3= -(-q+-/qz+ 4 p3) 
2 


I 
v3 = - 
( -q-Vqz+4 p3) 
2 


Hence, the roots of the equation y 3 + 3 py + q = 0, a, {3, and 'Y, are as follows: 


a=u+v 


I 
v'3. 
B=-2( u+v)+2z (u-v) 


Input 
Display 
Note 
Input 
Display 
Note 


1 [SHFTJ 
~ 
A= 
11 


2 (A) 
I [ENTER[ B= 
12 


3 (B) 
1 [ENTER[ C= 
13 


4 (C) 
-2 [ENTER) D= 
14 


5 (D) 
-2 [ENTER[ REAL ROOT 1.41421356~ 
15 


6 
[ENTER[ -1.414213562 -9.999991E-01 
16 


7 
17 


8 
18 


9 
19 


10 
20 


-18- 


SHARP 


Title 
PROGRAM NO. 
EQUATION OF THIRD DEGREE 
P4 -A-9 


I 
-/3. 
r=-- (u+v)-- t (u-v) 
2 
2 


The equation above is divided into the real part and the imaginary part. 


I) If q 2 + 4p 3 > 0 


Since u 3 and u3 are real numbers, u and v are supposed to take the real cubic 
roots of u 3 and u3 , and the equation above may be used directly. This is the 
case of one real root and two imaginary roots. 


II) If q2 + 4p3 < 0, u 3 and u3 yield imaginary roots. 


Suppose u3 = reie 


v 3= re-i(} 


r =v'=? 


-1 /-q2-4p3 


(} = tan 
-q 


Then, 


u = Fjj(cos %+ i sin~) 


v = v=Jj(cos %+ i sin~) 


Accordingly, the foots a, {3, 'Y ofy3 +3py+q=O are: 


- 
. 
n 
(} 
a = 2 v-p sIll ( --- ) 
2 
3 
-. n 
(} 
f3 = -2 -v-p sm c -+-) 
6 
3 


- 
. 
n 
(} 
T = -2-/-p sm( ---) 
6 
3 


These roots are all different real numbers. 


Input 
Display 
Note 
Input 
Display 
Note 


1 
11 


2 
12 


3 
13 


4 
14 


5 
15 


6 
16 


7 
17 


B 
18 


9 
19 


10 
20 
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SHARP 


Title 
EQUATION OF THIRD DEGREE 


PROGRAM NO. 
P4-A-9 


III) If q2 + 4p3 = 0 and p=-1=0, then u3 = v3 =- !L 


2 


Hence, u=v= 3Ff 


So, 
a= 2u 


{3 = T =-u 


The roots are equal roots and a different real root. 


IV) If q2 + 4p3 = 0 and p = 0, then q = 0. From u = v = 0, we obtain 


a:=/3=r=O. 


This is the case of triple roots. 


Finally, by adding 
~ to a:, {3, r, respectively, the solutions of the original 


equation may be obtained. 


Meanwhile, two different roots (or three roots) which are very close to each 
other may be judged as equal roots. Or, a reverse case to this may be also 
considered. 


[ Operation 1 
CLOAD 'V A9 v I ENTER! 


Input 
Display 
Note 
Input 
Display 
Note 


1 
11 


2 
12 


3 
13 


4 
14 


5 
15 


6 
16 


7 
17 


8 
18 


9 
19 


10 
20 
-20- 


Title 
EQUATION OF THIRD DEGREE 
1 
PROGRAM NO. 
P4-A-9 


Memory content 


A 1 v 


B 2 v 
10: "A":INPUT "A= ";D,"B= "';f,".C= ";G,uD= " 
c 3 v 
;H 


D 4 
A 
20: FOR E=6 TO 8 
30: A(E>=A(E) /D:NEXT E 
E 5 
FOR sentence 
40: F=F/3 


F 6 
B 
50: t>=G/3-F*F 
60: E=H- F*G+2* F* F* F 
G 7 
c 
70: C=4*D*D*D+E*E 


H 8 
80: IF E-8> AB S CGOTO 270 
D 
90: IF C>OGOTO 200 
I 9 
100: A=2*1"(-D) 


J 


110: B=ACS (E/(2*D*r(-D)))/3 


10 
120: D=ASN 1:E=ASN .5 
K 11 
130: G=A*SIN (0-B) :H=-A*SIN (£+8) 
140: I=-A*SIN ( E-8) 
L 12 
150: FOR .C=7TO 9 
M 13 
160: A(C)=A(C)-F:NEXT C 
170: BEEP 3:PRINT "REAL ROOT" ,G 
N 14 
1-60: PRINT H,I 


0 15 
190: END 
200: c:rc:A=.5*(C-E) :B=-.S*(C+E) :C=1/3 
p 16 
210: A=ABS A"C*SGt-l A 


Q 17 
220: B=ABS B"C*SGN B:C=.S*r3 
230: BEEP 3:PRINT "*REAL ROOT*",A+B-F 


R 18 
240: PRINT "*REAL*",-.S*(A+B)-F 
s 19 
250: PRINT "H1AGINARY",C*I\BS (A-8) 
260: EfJD 
T 20 
270: BEEP 3:IF E-8>AGS. DPRINT "TRIPPLE",-F: 
HID 
u 21 
280: A=-ABS C.S*E)"C1/3)*SSN E 
v 22 
290: PRINT "R Efl.L ROOT" ,2* A- F 
300: PRINT "EQUAL ROOT" ,-A-F 
w 23 
310: END 


X 24 
530 


y 25 
z 26 
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SHARP 


Title 
I 


PROGRAM NO. 
EQUATION OF FOURTH DEGREE 
p4-A-10 


[ Formula] 


This program solves an equation of fourth degree by using Ferrari's theorem. 


Given 
Ax4+Bx3+Cx2+Dx+E= 0 


Dividing each term by A yields 


x4+a1x3+a2x2+aax+a4= 0 


Suppose x = y - _!!_!_, then it follows 
4 


y 4+ ky2+£y+m= 0 


Coefficients k, l, m are 


3 
k =--a12+a2 
8 


_ I 
3 
I 
+ 
.e - 8 a1 - 2a1 a2 
as 


- 
3 
4 
1 
2 
1 
m-- 
256 a1 + i6 a1 a2- 4 a1 as +a4 


Attempt to reqrite the equation of fourth degree in terms of y, y 4 + ky 2 + ly + m, 
in the form of difference of squares, for instance, 


(y2+ !!_)2-v(y-w/ ·············································® 
2 


This expression may be developed into 


u2 
y4 + ( u- v ) y 2+ 2 v w y+ ( 4 - v ul ) 


Comparing this with the equation above, we obtain 


u-v=k,2vw=.e, 
u2 --vw2= m 
4 


Hence, v = u- k is obtained from the first equation, and w = 1/(2(u - k)) from the 
second equation. Substitution into the third equation yields 


Input 
Display 
Note 
Input 
Display 
Note 


1 
I SHFTI 
~ 
A= 
11 


1- (A) 
2 
I [ENTER[ 
B= 
12 


1- (B) 
-I [ENTER[ 
C= 
3 
13 
1- (C) 
-3 [ENTER[ D= 
··- 


4 
14 
5 (D) 
I [ENTER[ E= 
15 


1- (E) 
2 [ENTER[ 
6 
2 
0 
16 


7 
[ENTER[ 
1 
0 
17 


8 
[ENHR[ 
-1 
0 
18 


9 
[ENTER] 
-I 
0 
19 


10 
Real 
part Imaginary 
-part 
20 
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SHARP 


Title 
PROGRAM NO. 
EQUATION OF FOURTH DEGREE 
P 4-A-10 


uz 
ez 
-- 
=m 
4 
4 ( u-k) 


By rearranging this, an equation of third degree in terms of u may be obtained as 
follows: 


u3 - 
ku 2-4mu+(4km-f! 2) = 0 


Regarding u as one roof of this equation, it is substituted in eq. (1) and supposed as 0. 
That is, by solving 


u 
u 
(y2+Vv y+2-Vv W] (y2 -Vv y+2+ rv W] = 0 


or, 


yZ+~ y+(!!_- 
f! 
) = 0 
2 
2vu=:Ji 


~ u 
/! 
y- 
y+( -+ 
) = 0 
2 
2-.ru=li 


x will be determined. 


[Example] 


x 4-x3 -3x2 +x+2 = 0 


Answer: 2, 1, -1, -1 


[ Operation ] 
CLOAD 
'\1 A 10'\liENTERI 


Input 
Display 
Note 
Input 
Display 
Note 


1 
11 


2 
12 


3 
13 


4 
14 


5 
15 


6 
16 


7 
17 


8 
18 
9 
19 


10 
20 
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Title 
PROGRAM NO. 
EQUATION OF FOURTH DEGREE 
P4-A-10 


Memory content 


A 1 
10: "A":INPUT "A= ";X,"B= ";G,"C= ";H,"D= II 


B 2 
;r,"E= ";J 
20: FOR Y=?TO 10 
c 3 
30: A(Y)=A(Y)/X:NEXT Y 


D 4 
40: G=G/4:F=G*G 
SO: J=4*(F*H-3*F*F-G*I+J) 
E 5 
60: !=8* F*G-2*G*H+ I 


F 6 
70: H=(H-6*F> /3 
80: A=3*H*J-I*I 
G 7 
90: B=-J/3-H*H 


H 8 
100: C=A-H*J-2*H*H*H 
110: Y=4*B*B*B+C*C 
I 
9 
120: IF Y>=OGOTO 160 


"" 


10 
130: Y=ACS (C/(2*B*J<-B)))/3 
140: X=2*.[(-D)*SIN (ASN 1-Y)+H 


K 11 
150: GOTO 180 


L 
160: Y=JY:A=.S*(Y-C):B=.S*C-C-Y) 
12 
170: X=f.1GS AA(1/3)*SGN A+ABS BA(1/3)*SGN 8+1! 


M 13 
180: Y=3*H:A=-X-Y 
190: F=.[ABS ( X-Y) 


N 14 
200: 8=2*1/F:C=F/2 
0 
15 
210: IF Y>XGOTO 340 
220: K=O 
p 16 
230: X=C-G:Y=CA-B)/4 


Q 
17 
2LfC: IF Y>=OGOTO 300 
250: Y=[ABS y 
R 18 
260: BEEP 3: PRINT x,v 
s 19 
270: PRINT x,-v 
280: IF K=1 HlD 


T 20 
290: K=1:B=-B:C=-C:GOTO 230 


u 21 
300: BEEP 3:Y=[Y:PRINT C+Y-G,O 
310: PRINT C-Y-G,Q 


v 22 
320: IF K=1END 


w 23 
330: GOTO 290 
3tf0: B=f<A*f'..+B*B) 


X 24 
350: X=f<.5*(A+B))/2 


y 
360: Y=J< .5*(8-A)) /2 
25 
370: BEEP 3: IF I>=OGOTO 430 


z 26 
33(•: PRINT X-G, C-Y 
390: PRINT X-G,Y-C 
400: PRINT -X-G.·C+Y 
410: PRINT -X-G,-C-Y 
420: END 
430: PRINT X-G,C+Y 
440: PRINT X-G,-C-Y 
450: PRINT -X-G,C-Y 
460: PRINT -X-G, Y-C 
470: END 
684 
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SHARP 


Title 
APPROXIMATE DEFINITE INTEGRAL BY 
PROGRAM NO. 
SIMPSON'S METHOD 
P4-A-II 


[ Formula] 


Compute a definite integral by using Simpson's rule. 


S =fx2p f(x)d x= !!_((Yo +Y2P) +4 ( Y1 +y3+····· + Yzp-1) 


Xo 
3 
+2 ( Y2+ Y4 +·····+y2p-2)J 


h = ( x2p-xo) 
2p 
lp: number of divisions I 


[Example] 


y=x3 -2x2-x+2 
y 
= ( (x-2) x-l) x+2 
( ~ I 


1 
13 


~ ydx = 12 


I 


0 
lvX 


Write in the function, as subroutine, after line 500. 


How to write in (in the case of example above): 


Set to PRO mode (by pressing proper I MODE I key). 


500 Y=( (x-2) *x-l)*x+2 ]ENTER] 


510 RETURN [ENTER[ 
This ends writing. 


Next, change to DEF mode, and execute. 


[ Operation ] 
CLOADvAllv 
]ENTER] 


Input 
Display 
Note 
Input 
Display 
Note 


1 llffil 
I!) 
XO= 
11 


2 Cxo) 
0 ]ENTER] 
X2P= 
12 


3 Cx2p) 
I [ENTER[ 
P= 
13 


4 (p) 
20 [ENTER] 
ANS. 
1.083333333 
14 


5 
15 


6 
16 


7 
17 


8 
18 
9 
19 


10 
20 
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Title 
APPROXIMATE DEFINITE INTEGRAL BY 
PROGRAM NO. 
SIMPSON'S METHOD 
P4-A-Il 


Memory content 


A 
1 
s 


B 2 
h 
c 3 
s 
10: "A":INPUT "XO= ";D,"X2P= ";E,"P= ";F 


D 4 
Xo 
20: 8=( E-D) /2/ F 


E 
30: A=O:X=D:GOSUB 500 
5 
X2p 
40: A=Y+A:X=X+B:GOSUB 500 


F 6 
p 
SO: A=Y*4+A:X=X+B:GOSUB 500 
60: A=Y+A: F=F-1 
G 7 
70: IF F<>OGOTO 40 


H 8 
80: C=A*B/3 
90: BEEP 3:PRINT "ANS.",C 
I 
9 
100: END 


.J 10 
500: Y=((X-2)*X-1)*X+2 
510: RETURN 


K 11 
180 


L 12 


M 13 
An example containing: 


N 14 
y = ( (x-2) x-1) x+2 


0 
15 
= x3-2x2 -x+2 


p 16 


Q 
17 
R 18 
s 19 


T 20 
u 21 
v 22 
w 23 
X 24 
X 
y 25 
y 
z 26 
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SHARP 


Title 


PROGRAM NO. 
FIRST ORDER DIFFERENTIAL EQUATION 
p4-A-12 


[ Formula] 


This program is to solve a first order differential equation according to Runge-Kutta-Gill 
method. 
The equation is y' = f(x, y ), anda the initial condition is (x0 ,y0 ). 
Taking the value of x at intervals of h, 


Xn = Xo + nh (n=1,2,······) 


the value of y at Xn, namely y n, is obtained ~equentially. 


The formula to obtain x n +1 , y n + 1 from x n, y n is given as follows according to 
Runge-Kutta-Gill method. 


ko=hf(x,., y,.) 
r1= (1/2)(ko-2qo) 


y{l)=y,.+rt 
ql =qo+3rt-C 1/2) ko 
kt = hf ( xn+ h/2, y( 1)) 


r2 = ( 1-.li/2) ( kt- q1) 


y {2)= y{l)+ r2 
q2=q1 +8r2-(1-.li/2)k1 
k2=hf(x..+h/2, y{2)) 


r3 = ( 1 +/t/2) ( k2- q2) 


y{3)=y{2)+r3 
q3 = q2 +3 r3- ( t+-/172) k2 
k3= hf (xn+t, y(S)) 


r, = ( 1/6) ( k3-2 q3 ) 


y,.+t = y{S) + r, 
q,= q3+8 r,- ( 1/2) k3 


Thus, Yn+t is determined from Yn· 


Here, n = 0, 1, 2, ········ 


The value of q0 is 0 at start point x 0 , and q4 is taken as new q0 thereafter. 
* As for the function, refer to the Programming list. 


[Example] 


Equation y' =- xy is solved, under the initial condition of x 0 = 0, provided y 0 = 10. 


However, suppose h = 0.01, and y is obtained when x = 0.01, 0.02, · · ·. 


[ Operation 1 
CLOAD v A12 v [ENTER[ 


Input 
Display 
Note 
Input 
Display 
Note 


1 
I SHFT[ 
~ 
XO= 
11 
2 Cxo) 
0 [EllER[ 
YO= 
12 
3 (yo) 
10 [EllER I H= 
13 
4 (h) 
0. 01 [EllER[ 
0.01 
9. 9995000 12 
14 


5 
[EllER[ 
0.02 
9.9980002 
15 


6 
[EllER) 
0.03 
9.995501013 
16 


7 
[EllER[ 
0.04 
9.9920032 
17 


8 
18 
9 
19 


10 
20 
-27- 


Title 
Dl FFERENTIAL EQUATION 


PROGRAM NO. 
FIRST ORDER 
P4-A-12 


Memory content 


A 1 
I+-/172 


B 2 
I-/172 


c 3 
10: "A":INPUT "XO= ";X,"YO= ";Y,"H= "iH 
20: A=1+J.S:B=1-[.S:USING :Q=O 


D 4 
30: GOSUB 500 


E 5 
40: K=H*F:Y=Y+(K-2*0)/2 
50: Q=Q+3*((K-2*Q)/2)-K/2 
F 6 
f(x,y) 
60: X=X+H/2:GOSUB 500 


G 7 
70: K=H*F:Y=Y+B*(K-Q) 
80: Q=Q+3*(B*(K-Q))-B*K 
H 8 
h 
90: GOSUB 500 
I 
9 
100: K=H*F:Y=Y+A*(K-Q) 
110: Q=Q+3*(A*(K-Q))-A*K 


~ 10 
120: X=X+H/2:GOSUB 500 


K 11 
k 
130: K=H*F:Y=Y+(K-2*0)/6 
140: Q=Q+3*((K-2*Q)/6)-K/2 
L 12 
150: BEEP 3 :PRINT x,v 


M 13 
160: GOTO 30 
500: F=-X*Y 


N 14 
510: RETURN 


0 
15 
306 


p 16 


Q 17 
q 
An example containing y' = -xy (line 500) 


R 18 
Write y',x, andy byusing F memory, 
s 19 
X memory, andY memory, respectively. 


T 20 
u 21 
v 22 
w 23 
X 24 
Xo 


y 25 
Yo 
z 26 
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SHARP 


Title 
MULTI-ELEMENT SIMULTANEOUS FIRST ORDER 
PROGRAM NO. 
DIFFERENTIAL EQUATIONS 
P4-A-13 


[ Formula 1 


This program solves multi-element simultaneous first order differential equations by using 
Runge-Kutta-Gill method. 


An n-th order differential equation is, when it is constituted as follows, 


Y1= Y 
1 


y2= y/ 


Yn = Yn-1 
1 


divided into n-element simultaneous first order differential equations. 


The multi-element simultaneous first order differential equations 


d· 
d; = f i (X, Y1 , ...... , Ym) ( i = 1 , 2, ··· ··· , m) 


are solved under the initial condition of 


x = x 0 provided Yt = Yto (i = 1, 2, · · ·, m). 


Taking the value of x at intervals of h, the value of y 1 at 


Xn = x 0 + nh (n=l,2,······) 


namely Yin is obtained sequentially. 
Suppose x is written as y 0 and considered to be an unknown function, we obtain 


dyo= 1 
dx 
Thus, 


dyl 
d X = f i ( Yo , Y1 , .. .. .. , Ym)(i=0,1,2,······,m) 


is solved. Uo = 1) 
The formula to determine the value of y 1 at x = Xn + 1, namely, y 1, n + 1, from the 
value of y 1 at x = Xn, namely, y 1, n, is given as follows according to Runge-Kutta-Gill 
method. 


Input 
Display 
Note 
Input 
Display 
Note 


1 
ISH fT I 
~ 
ORDER= 
11 
[EITEl[ 
2 
1. 040813509 


2 ~~~e~[ts12 [EITER[ INTERVAL= 
12 


3 Interval)O.Ql[EITER[ ? 
13 


4 Cxo) 
0 [EllER[ ? 
14 


5 (yl) 
1 [EITEl[ ? 
15 


6 (y2) 
1 [EITER[ 0 
0.01 
x display 
16 


7 
[EllER[ 1 
1. 010100671 
Y1 
1/ 
17 


8 
[EllER[ 2 
1. 020201678 
Y2 
I/ 
18 
9 
[EllER[ 0 
0.02 
19 


10 
[EITER[ 
1 
1.0204054 
20 
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SHARP 


Title 
MULTI-ELEMENT SIMULTANEOUS FIRST ORDER 
PROGRAM NO. 
Dl FFERENTIAL EQUATIONS 
P4-A-13 


kio = hf i ( Xn , Yo n , Y1 n , ··· ··· , Ymn ) 


r i 1 = ( 1/2) ( k i 0 - 
2 q i 0 ) 


y;(l) = Yin +r i 1 


q i I 
= q i o + 3 r i 1 - 
( 1/2) k i o 


kil 
h 
= h f i (X n + 2 , Yo (I), Y1 (I) , ··· ··· , Ym(l)) 


r i 2 = (1-l/2)(k;l-q;l) 


y;(2)= y;(l)+ ri2 


q i 2 = q;l+3r;2-(1-/i72)k;l 


k j 2 = hf; (yo( 2), Y1(2), ······ 'Ym( 2)) 


r i 3 = (I+I/2)(k;2-qi2) 


y;(3)= y;(2)+r;3 


q i 3 = q i 2 + 3 r i 3 - 
(1 + /i/2) k i 2 


k i 3 = hf; (yo(3), Yt(3), ...... , Ym(3)) 


r i 4 
= (l/6)(k;3-2q;3) 


Yi, n+l = y;(3)+ r ; 4 


q i 4 
= q i 3 + 3 r i 4 - 
(1/2) k i 3 


Thus, from y;, n, the values of y;, n + 1 are determined. 


Here, i = 0, 1, 2, · · ·, m. 


The value of q ;o is all 0 at start point x 0 , and q;4 should be a new q;o 
thereafter. 


Input 
Display 
Note 
Input 
Display 
Note 


1 
11 


2 
12 
3 
13 


4 
14 


5 
15 


6 
16 


7 
17 


8 
18 
9 
19 


10 
20 
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SHARP 


Title 
MULTI-ELEMENT SIMULTANEOUS FIRST ORDER 
PROGRAM NO. 
DIFFERENTIAL EQUATIONS 
P4-A-13 


[ Example] 


Solve yy 
li - y'2- y2 = 0. 


The initial condition is x = 0. Suppose y = y' = 1, y = y, and y 2 = y', then it follows 
that 


r~y, 


y'2 


y{ = - 1 + Y1 
Y1 


( x , Y1 , Y2 ) = ( 0 , 1 , 1 ) 
x2 
-+x 


(Solution: 
y=e 2 
) 


Determine at every x = 0.1 at intervals of h = 0.01. 


[ Operation ] 
CLOAD vA 13v I ENTER) 


Input 
Display 
Note 
Input 
Display 
Note 


1 
11 


2 
12 


3 
13 


4 
14 
5 
15 


6 
16 


7 
17 
8 
18 
9 
19 


10 
20 
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Title 
MULTI-ELEMENT SIMULTANEOUS FIRST ORDER 
PROGRAM NO. 
DIFFERENTIAL EQUATIONS 
P4-A-13 


Memory content 


A 1 
Write in the function, as subroutine, after line 900. 


8 
2 
The method of writing is the same as in the case of approximate 
defmite integral by Simpson's method. 
c 3 
The comparative table with the memory is specified below. 


D 4 
In the case of two-element simultaneous equations, use 


x 0-I memory 
E 5 
y 1-Jmemory 
F 
6 
Y2-K memory 
G 7 
y 1'-L memory 


H 8 
y 2 '-M memory 


I 
9 
q1-N memory 


~ 10 
q2-0 memory 


K 11 
In the case of three- or four-element simultaneous equations, 


L 12 
shift the memories to be used. 


Three-element equations: 
M 13 
x 0 -J memory 
After Z memory comes A(27) 
N 14 
y 1-J memory 
memory. 


0 
15 
Y2-K memory 
p 16 
y 3-L memory 


Q 17 
y/-M memory 


R 18 
y 2'-N memory 


y 3'-5 memory 
s 19 
q 1-P memory 
T 20 
q 2-Q memory 
u 21 
q 3-R memory 
v 22 
The PC-1211 can solve up to 40-element simultaneous 
w 23 
ordinary differential equation of first order. 


X 24 
y 25 
z 26 
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Title 
MULTI-ELEMENT SIMULTANEOUS FIRST ORDER 
PROGRAM NO. 
DIFFERENTIAL EQUATIONS 
P 4- A- 13 


Memory content 


A 1 v 
10: "A": CLEAR :USING 


B 2 
Interval h 
20: INPUT "ORDER= ";F,"HHERVAL= ";B 
30: C=F 
c 3 v 
40: FOR A=9TO C+9 


D 4 v 
50: INPUT A(A) 
60: NEXT A 
E 5 
70: GOSUB 500 


F 6 
No. of elements 
80: FOR A=9TO C+9 
90: BEEP 3=PRINT A-9,A(A) 
G 7 v 
100: NEXT A:GOTO 70 


H 
v 
110: END 
8 
500: GOSUB 900 
I 
9 
Xo 
510: FOR A=10TO C+9 
520: GOSUB 800 


J 10 
Y1 
530: H=G/2-AC D) 
K 11 
Y2 
540: A(A)=A(A)+H 
550: A{D)=A(D)+3*H-.5*G 
L 12 
Y3 
Y1 
1 
560: NEXT A 
M 13 
y/ 
570: I=I+B/2:GOSUB 900 
580: FOR A=10TO C+9 


N 14 
ql 
590: GOSUB 800 
0 15 
600: H=CG-A(D))*(1-r.5) 
q2 
610: A(A)=A(A)+H 
p 16 
620: A(D)=A(D)+3*H-C1-r.5)*G 


Q 17 
630: NEXT A 
640: GOSUB 900 


R 18 
650: FOR A=10TO C+9 


s 19 
660: GOSUB 800 
6 70: H=(G-A(0))*(1+r.5) 
T 20 
680: A(A)=ACA)+H 
690: A(D)=A(D)+3*H-G*(1+r.5) 
u 21 
700: NEXT A 
v 22 
710: I=I+B/2 
720: GOSUB 900 
w 23 
730: FOR A=10TO C+9 


X 24 
740: GOSUB 800 
75_D: H=( G-2* A( D)) /6 
y 25 
760~ A(A)=ACA)+H 
z 26 
770: ACD)=ACD)+3*H-G/2 
780: NEXT A:RETURN 
800: D=A+C:G=B*A(O) 
810: D=IHC :RETURN 
900: L=K:F•l=L*Lf J+J 
910: RETURN 


528 


An example containing: 


/_ 
{ Y1- Y2 


yf = Yi 2/Y1 + Y1 
(line 900) 
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SHARP 


Title 
I 


PROGRAM NO. 
EIGENVALUE 
P4 -A-14 


[ Formula] 


Set up a characteristic equation according to Danilevski's method, and solve the equation 
by using Hitchcock's method to determine the eigenvalue. 


A matrix is given as A = [ aij] (here, A is ann-element square matrix.) 


Deform the matrix, first supposing m = 1, m' = m + 1. 


Matrix T = [ t ij] ' and T - 1 = [ t ~j] are set up as follows. · · · · · · · · · (1) 


When j= m', 


Oim 
( i ""- m' ) 
t;j =--- 


Om 1m 


tm) = 
1 
-- 


am 1m 


t'jj = 
Oim 


When i*m', 


{ t ;j ~ ''t ~ 0 
Ci""-j) 


t ij = t 
1ij = 1 


Thus, the matrix is deformed from TAr- 1 into A. 
If m'*-n, m+ 1 ischangedto m, and m'+ 1 tom', thusreturningtoeq.(1). 


If m' = n, the deformation is terminated. 


Now, matrix A is deformed as follows, except for the final row: 


{ 
Q;j ~ 0 
Ci"'-j+1) 


Oij = 1 
(i=j+1) 


From the final row, the coefficient [rd may be determined as follows. 


Input 
Display 
Note 
Input 
Display 
Note 


1 
]SHFT[ 
~ 
ORDER 
11 Ca31) 
71]ENTER] 
? 


2 (n) 
4 ]ENTER] 
? 
12 (a:r) 
21]ENTER] 
? 


3 Can) 
38 ]ENTER] 
? 
13 (a:J 
85]ENTER] 
? 


4 (a12) -83 ]ENTER] 
? 
14 (a,J 
15]ENTER] 
? 


5 (a13) -21 ]ENTER] 
? 
15 (au) 
-18]ENTER] 
? 


6 (a14) 
76 ]ENTER] 
? 
16 (a4;) 
65]ENTER] 
? 


7 Ca21) -27 ]ENTER] 
? 
17 (a4J 
-74]ENTER] 
? 


8 Ca22) 
54 ]ENTER] 
? 
18 Ca4J 
46]ENTER] 89. 40408949 
0 


9 (a2l) 
86 ]ENTER] 
? 
19 
]ENTER] -49.70138121 
0 


10 (a24) -18 ]ENTER] 
? 
20 
]ENTER] 91. 64864585 88.72786239 
-34- 
]ENTER] 91.64864585 -88.72786239 


SHARP 


Title 


PROGRAM NO. 
EIGENVALUE 
P4-A-14 


rt ~-akn (k=n-i+1) 


As a result, the following equation is obtained as the characteristic equation. 


}_n+r 1 ,l_n-1+······+rn-1 A+rn =0 


Thus is obtained a characteristic equation, which is solved by using Hitchcock'e method. 


[ Example] 


(Ex. 1) 
r- 
- 
38 -83 -21 
76 


-27 
54 
86 -18 


71 
21 
85 
15 


-18 
65 -74 
46 


'-- 


* The equation cannot be calculated when aii is an imaginary number. 


Also, calculation is impossible when am m' is 0. 


The characteristic equation may not always converge. 


Especially when the roots are equal roots, there is a possibility of failure in 
convergence. 


At every repetition, the state of convergence is displayed. 


As the displayed figures approaches 0, it is understood that convergence is near at end. 


Enables use in the range of 2 ~ n ~ 7. 


(Ex. 2) 
[ 38 
83] 
Answer: 
A1 = 94.01042 


-27 
54 
A2 = -2.01042 


[ Operation ] 
CLOAD VA 14\7 [ENTER[ 


Input 
Display 
Note 
Input 
Display 
Note 


1 
11 


2 
12 


3 
13 


4 
14 


5 
15 


6 
16 


7 
17 


8 
18 


9 
19 


10 
20 
-35- 


Title 
PROGRAM NO. 
EIGENVALUE 
P4-A-14 


Memory content 


A 1 
i I 


8 
2 
j' 


c 3 
n 
10: "A":CLEAR :PI\USE "EIGEt( VALUE" 
20: H!PUT "ORDER ";c 
D 4 
m' 
30: fOR G=1TO C 


E 5 
40: FOR H=1 TO c 
m 
SO: BEEP 1:PAUSE USING "###ti#";G;H:INPUT I 
F 6 
¢ 
60: GOSUB 600 


G 7 
i 
70: A(K)=I:NEXT H:NEXT G 
80: USING :FOR E=1TO C-1 


H 8 
j 
90: li=E: FOR G=1 TO c 


I 
9 
For input 
100: GOSUB 600 
110: A(L)=A(K):NEXT G 


..J 10 
v 
120: D=E+1:G=D:H=E:GOSUS 600 


K 11 
Index 
130: F=A(K):FOR H=ETO c 
140: GOSUB 600 


L 12 
Index 
150: A(K)=A(K)/F:NEXT H 


M 13 
160: FOR A=1TO c 
170: IF A=DGOTO 230 


N 14 
180: G=A:H=E:GOSUB 600 
190: F=A(K):FOR H=ETO c 
0 
15 
200: G=A:GOSUS 600 


p 16 
L a ij 
210: J=K:G=D:GOSUB 600 
220: A(J)=A(J)-f*A(K):NEXT H 
Q 17 
230: NEXT A:FOR A=1TO c 
R 18 
240: F=O: FOR H=1TO c 
250: G=A:GOSUB 600 
s 19 
260: J=K:G=H:GOSUB 600 


T 20 
270: F=F+A(J)*A(L):NEXT H 
230: G~A:H=D:GOSUB 600 
u 21 
290: A(K)=F:NEXT A:NEXT E 
v 22 
300: FOR A=1 TO c 
310: G=A:H=C:GOSUB 600 
w 23 
320: J=K:G=C-A+1:GOSU3 6J!J 


X 24 
330: A(L) =-A(J) :NEXT A 
340: G=1:GOSUB 600 


y 25 
350: E=1:M=C:GOSUB 500 


z 
360: FOR E=1TO c 
26 
370: A(F)=A(L) :F=F+1:L=L+1:NEXT E 
380: A=O:S=O 
390: IF 2>=CGOTO 450 
400: GOSUB 800 


-36- 


Title 
PROGRAM NO. 
EIGENVALUE 
P4-A-14 


Memory content 


A 1 


8 2 
410: IF CABS F>=£-4) +CABS G>=E-4)<>0LET A=t'+ 
c 3 
F:B=B+G:PAUSE F,G:GOTO 400 


D 
420: GOSUB 900 
4 
430: FOR E=1 TO C-2:GOSUB 500 


E 5 
440: A( F) =A(!) :NEXT E:C=E:GOTO 380 
450: E=1:GOSU8 500 
F 6 
460: A=A(F) :IF C=1BEEP 3:PRINT -A,Q:END 
G 7 
470: E=2:GOSUB 500 
480: B=A(F):GOSUB 900 


H 8 
490: END 


I 9 
500: G=E+13:H=G+1:F=M+H+1 
510: I=H+1 :RETURN 


J 10 
600: L=G+15:K=15+C*G+H 


K 11 
610: RETURN 
700: GOSUB 500 


L 12 
710: A(!)=A(f)-A*A(H)-B*A(G):RETURN 


M 13 
800: E=1:GOSUB 500 
810: A(G)=O:J=O:K=1:A(H)=1 
N 14 
820: GO SUB 700 


0 15 
830: L=A(!)-A*K-D*J:E=E+1 
840: If C<>ELET J=K:K=L:GOTO 820 


p 16 
850: GO SUB 700 
860: H=A(H):I=A{l):D=K*K-J*(L-H) 
Q 17 
870: f=(H*K-I*J) /D 
R 18 
880: G=CI•K-H*(L-H))/D 
890: RETURN 
s 19 
900: BEEP 3:A=A/2:B=A*A-S:IF B=OGOTO 930 


T 20 
910: E=rABS 8: If O>BPR IiH -A,E:PRINT -A,-E: 


RETUR!,~ 
u 21 
920: PRINT E-A,O :PRINT -A-E,O:RETURI: 


v 22 
930: 
1057 
PRINT -A,O :PRINT -A,C :RETURr; 


w 23 


X 24 
y 25 
z 26 
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SHARP 


Title 


- 


I 


PROGRAM NO. 


n, ~. x, a 
P 4 -B-1 


[ Formula 1 


Determine the number of data, total sum, mean value, and standard deviation. 


Input of weighted data and deletion of input data are possible. 


The standard deviation is computed in the equation below. 


11 = j"Lcx,-x) 
2 


n-1 


[ Example 1 


Xi 
14. I 
14.2 
14.3 
14.4 
14.5 


/i 
8 
19 
23 
15 
10 


[ Operation 1 


CLOAD 9 B 1\7 ]ENTER] 


r sHfll ~ 
-- 
(1) With weight, 1 rENTER]·; without weight, 2 
~-NT(RJ 


(2) To cut data, press -siiff] and 19 keys. 


This operation is valid, however, only when "X=" is on the display. 


IJII_FT_] ~ n 


I x 


II 


Input 
Display 
Note 
Input 
Display 
Note 


1 
] SH_F!j 
~ 
WEIGHT-1 NO WEIGHT-2 
11 
14. 5W® FI= 
2 
1 ]ENTER] X= 
12 
10 ]ENTER] X= 


3 
14.1 ]ENTER] Fl= 
13 
SH FT I ~ 
75 
n 
---- 
4 
8 ]ENTER] X= 
14 
]ENTER] 
1072.5 
I 


5 
14.2 ]ENTER] FI= 
15 
]ENTER] 
14.3 
x 


6 
I 9 ]ENTER] X= 
16 
]ENTER] 
1. 196842693 E-01 
II 


7 
14.3 ]ENTER] FI= 
17 


8 
23 ]ENTER] X= 
18 


9 
14.4 ]ENTER] FI= 
19 


10 
15 ]ENTER] X- 
20 
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PROGRAM NO. 
Title 
n 
, L , 
X 
, 
(J 
P4-B-1 


Memory content 


A 1 
B 2 


II N': N=O: T=O: S=O: A=O 
10: 
c 3 
20: INPUT "WEIGHT -1 NO WEIGHT -2",A 


D 
30: INPUT "X=";X 
4 
4n· IF A=1GOTO 120 
'-'. 


E 5 
SO: F=1 
60: N=N+F 
F 6 
f; 
70: T=T+F*X 
G 7 
80: S=S+F*X*>: 
90: GOTO 30 
H 8 
100: "C":PAUSE "CUT" 
I 9 
110: F=-F:GOTO 60 
120: INPUT "FI=";F 
J 10 
130: GOTO 60 


K 11 
140: "8": X=T /rl 
150: S=J((S-N*X*X)/(N-1)) 
L 12 
160: PRINT N:PRINT T:PRINT X:PRINT S 


M 13 
203 


N 14 
n 


0 15 
p 16 


Q 17 


R 18 
s 19 
.I:x;2 


T 20 
.I:x i 
u 21 
v 22 
w 23 
X 24 
Xi , -X 
y 25 
z 26 
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SHARP 


Title 
POISSON DISTRIBUTION AND BINOMIAL 
PROGRAM NO. 
DISTRIBUTION 
P 4- B-2 


[ Formula] 


In Poisson distribution and binomial distribution, determine probability at x and cumulative 
probability from 0 to x. 


o Poisson distribution 


e-mmx 
X 


P(X=x) = 
L(p) = L P(X=i) 
x! 
i=O 


o Binomial distribution 


X 


P(X=x) = nCxpx( 1-p)n-x 
L(p)=L; 
i=O 


P( X= i ) 


[ Example ] 


Poisson distribution · ············· m=3, 
x=5 


Binomial distribution ············ n = 100 , p = 0. 02 • x=2 


[ Operation ] 


CLOAD vB2\7 (£ITER[ 


ISH FT I I!) ··· ······ Poisson distribution 


ISH FT I ~ ·· · · · · · · · Binomial distribution 


Input 
Display 
Note 
Input 
Display 
Note 


1 
I SHFT[ 
I!) 
M,X? 
Potsson 
11 
I SHFT[ 
~ N,P,X ? 
[BJnomiai. 
distribution 
distribution 
2 
3 [ENTER[ ? 
12 
I 00 [ENTER[ ? 
3 
5 [ENTER[ M= 
3 
13 
0. 02[ENTER[ ? 
4 
X= 
5 
14 
21®1il N= 
100 


5 
P= 
1.00818 E-01 
Probability 15 
P= 
0.02 


6 
(ENTER[ L(P)= 
9.16~2 E-01 
1 cumJ,llattve 
probabilitv 16 
X= 
2 


7 
17 
P= 
2. 73413 E-01 Probability 


8 
18 
[ENTER[ L(P)= 6. 76685 E-01 cgF%l~t~e 
ro a ihty 
9 
19 


10 
20 
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Title 
POISSON DISTRIBUTION AND BINOMIAL 
PROGRAM NO. 
DISTRIBUTION 
P4-B-2 


Memory content 


A 1 
B 2 
p ... binomial 
10: "A":INPUT "M,x ?",M,x 
c 3 
2Cl: PWSE "M=",M 
30: PAUSE "X=",x 
D 4 
40: L=EXP C-M) :P=L 


E 5 
50: IF X=OGOTO 90 
60: FOR A=1TO X 
F 6 
70: P=M*P/A:L=!.:.+P 


G 7 
80: NEXT A 
90: PRINT "P=",p 


H 8 
100: PRINT "L(P)=",L 
I 9 
110: END 
120: "B":INPUT "N,P,X ?",N,P,X 


J 10 
130: PAUSE "N=",N:PAUSE "P=",P:PAUSE 
''X='',;~: 


K 11 
8=(1-P)"N:L=S 
140: IF X=OGOTO 190 


L 12 
L(P) 
150: FOR A=1TO v 
,., 


M 13 
160: B=CN-A+1)*P*8/(A*(1-P)) 
m 
170: L=L+8 
N 14 
n 
180: NEXT 
~~ 
0 15 
190: PRINT "P=",B 
200: PRINT "L(P)=",L 


p 16 
p ··· poisson 
210: END 


Q 17 
269 


R 18 
s 19 
T 20 
u 21 
v 22 
w 23 


X 24 
y 25 
z 26 
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SHARP 


Title 
I PROGRAM NO. 
NORMAL DISTRIBUTION AND PERCENTILE 
P 4-B-3 


[ Formula] 


Determine the normal distribution function ¢(x) and inverse function thereof (percentile) 
according to Hasting's best approximate equation. 


• ¢(x) 


Suppose, 
¢ (x) = f!oo ¢ t d x 


1 
,z ~ 


¢t=,jf;"e 
2 


1 
t=-- 
1+px 


we obtain, 


¢ (x) = 1-¢t Cc1t+cz t 2 +c3t3+c4 t 4+c5 t 5) 


p = 0. 2316419 
c1= 0.31938153 


c 2=- 0. 356563782 
c3= 1. 78147937 


c4 =- 1. 821255978 
C5 = 1. 33027 4429 


• Percentile 


x=~ 
/ ~ 
Co +c1 x +c 2 x 2 
tQ -'=7 x- 1+d1x+dzx2+d3x3 
tQ 


co= 2. 515517 
dl = 1. 432788 


C1 = 0. 802853 
dz= 0. 189269 


c 2 = 0. 010328 
da= 0. 00138 


[Example] 
¢(x) ········· x = 2; percentile ·········· Q = 0.05 


[ Operation ] 
CLOAD vB3v ]ENTER] 


Input 
Display 
Note 
Input 
Display 
Note 


1 
2 I SHfT] ~ p 
9. 77249 IE- 01 
¢(x) 
11 
2 
12 
3 
13 
4 0.05 ]SHFT] ~ TQ 
1.645361125 
tQ 
14 
5 
15 


6 
16 


7 
17 
8 
18 
9 
19 


10 
20 


-42- 


Title 
NORMAL DISTRIBUTION AND PERCENTILE 
PROGRAM NO. 


P 4- B-3 


Memory content 


A 1 


8 2 
c 3 
10: II A" : AR EAD z 


D 4 
20: Y=1/(1+.2316419*Z) 
30: A=.31938153:B=-.356563782 
E 5 
40: C=1.78147937:D=1.330274429 


F 6 
50: E=-1.821255978 
60: F=C+Y*(D*Y+E):P=1-EXP 
(-.S*Z*Z)/J(2*~)* 


G 7 
Y* (A+Y* (B+Y* F)) 


H 8 
70: BEEP 2:PRINT "P",p 
80: END 


I 9 
90: "B":AREAD Z 


J 10 
100: Y=[LN (1/Z/Z) 
110: A=2.515517:B=.802853:C=.010328 


K 11 
120: D=1.432788:E=.189269:F=.00138 
130: Q=Y-(A+Y*(B+C*Y))/(1+Y*(D+Y*(E+F*Y))) 
L 12 
140: BEEP 2:PRINT "TQ",Q 


M 13 
150: END 
319 
N 14 


0 15 
p 16 
p 


Q 17 
TQ 


R 18 
s 19 
T 20 
u 21 
v 22 
w 23 
X 24 
y 25 
working area 
z 26 
Input area 
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SHARP 


Title 
ESTIMATION OF INTERVAL OF POPULATION 
PROGRAM NO. 


MEAN AND POPULATION VARIANCE 
P 4- B-4 


[Formula] 


Estimate a population mean or a population variance. (Both population mean and population 
variance should be unknown normal population.) 


• Estimation of population mean 
• Estimation of population variance 


Supposing the confidence 
Supposing the confidence 
coefficient to be a, ta to satisfy 
coefficient to be a, x 1 , x 2 to satisfy 
the following equation is found: 
the following equation is found: 


x-p 
PC xl<S,../o 2<xn =a 
P ( -ta<../V?ii"< ta) =a 
/n 


Then, the intended interval is 
Then, the intended interval is 


X± ,;V/n"" t a 


Sn 
s .... 
--- 
xl 
xl 


ta plots t-table of n-1 degree of 
xi,x~ plotx2 -table ofn-1 degree of 
freedom. 
freedom. 


[Example] 
(n=5, x=12.28 
) 
12.3 
12.4 
12. 1 
12.4 
12.2 
o=l. 303840481 IE-01 


From the data above, the population mean is estimated at & = 0.95. 


28.0 
27. 7 
27. 0 
27. 7 
25.7 
27. 7 
(n=ll 
) 
28.3 
27. 8 
26.4 
26.5 
27. 1 
o = 7.965838939 E- 01 


From the data above, the population variance is estimated at a= 0.98. 


[ Operation ] 


CLOAD vB4v 
[ENTER[ 


ISH FT I ~ ······· Estimation of population mean, processed data 


I SHFT[ ~ ······· Estimation of population mean, unprocesse'd data 


I SHFT\ 00 ······· Estimation of population variance, processed data 


ISH FT] ~ · · ·· · · Estimation of population variance, unprocessed data 


Input 
Display 
Note 
Input 
Display 
Note 


1 
ISH FT] 
~ 
N,X,S,T ? 
11 
ISH FT I 
~ 
? 
2 
5 [ENTER[ ? 
No. of pieces 12 
12.3 [ENTER[ 
? 


'+-< 
0 
~ 
!': Q) 
• 


3 
12. 28 [ENTER[ ? 
Mean 
13 
12.4 [ENTER[ 
? 


0 ... 
Q) 
·- 0.. !': 
.... 
0 
Standru;d 
Q) 
- 


4 0.1303840481[ENTER] ? 
14 
12. 1 [ENTER[ 
? 
- 
"' 
deviation 
S'..:- 
:>. 


2. 78 [ENTER[ 
Lower limit 
12.4 [ENTER[ 
0 
;::s 
Q) 


5 
LOWER 
12.11789954 
15 
? 
"g.....: 


~=:·-~ 
6 
[ENTER I CENTER 
12.28 
Median 
16 
12. 2 [ENTER\ 
? 
0"' ~ 
0.. .... 
~ 
;::,-,.a ~ 


7 
[INTER[ 
UPPER 
12.44210046 Upper limit 
17 
[ENTER[ 
T= 


8 
18 
2. 78 [ENTER[ 
LOWER 
12.11789954 Lower limit 


9 
19 
[ENTER[ 
CENTER 12.28 
Median 


10 
20 
[ENTER[ 
UPPER 
12.44210046 Upper limit 
-44- 


SHARP 


Title 
ESTIMATION OF INTERVAL OF POPULATION 
I 


PROGRAM NO. 


MEAN AND POPULATION VARIANCE 
P 4- B-4 


Input 
Display 
Note 
Input 
Display 
Note 


1 ®liJ 
00 
N,S,A,B? 
11 
ISH FT I 
~ 
? 
>. 


2 
11 (EITER( ? 
12 
28 (ENTER( 
? 
~ =~ 
"'0.. 


3 7965838939 !ENTER I ? 
13 
..c: e 
:s: 0 
0 
Q)U"tj 


4 
2. 558 ]ENTER( 
? 
14 Repeat thereafter 
"' = "' "' 
-5~~~ 


5 
23. 209 I, ENTER( 
LOWER 
2.734051E-o Lower limit 15 
(ENTER I A,B ? 
:~cd8 
Q)Q)~8 
~..I.:"Cl 0.. 


6 
(ENTER] CENTER 6.345451E-Q Middle 
16 
2. 558 (ENTER] 
? 


7 
(EITER] 
UPPER 
2.480632575 Upper limit 17 
23. 209 (ENTER] 
LOWER 
2.734051E--{)1 Lower limit 


8 
18 
(ENTER( 
CENTER 
0.634545673 'Middle 


9 
19 
(ENTER] 
UPPER 
2.480632029 Upper limit 


10 
20 
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Title 
ESTIMATION OF INTERVAL OF POPULATION 
PROGRAM NO. 


MEAN AND POPULATION VARIANCE 
P4-B-4 


Memory content 


A 1 
x; 


8 
2 
xi 


c 3 
10: "A":INPUT "N,x,s,T ?",N,x,s,T 
20: E=S/[N:GOTO 60 


D 4 
30: "B":GOSUB 500 


E 5 
Sta/~, d 2 
40: INPUT "T="iT 
50: E=J( S/N/ (N-1>) 


F 6 
60: E=E*T 


G 7 
70: PRINT "LOWER", X-E 
80: PRINT "CENTE R",X 


H 8 
90: PRINT "UPPER", X+E 


I 
9 
100: END 
110: "X":INPUT "N,s,A,B ?",N,E,A,B 


~ 10 
120: E=E*E:S=E*(N-1):GOTO 160 


K 11 
130: "Z":GOSUB 500 
140: INPUT "A,B ?",A,B 
L 12 
150: E=S/(N-1) 
160: PRINT "LOWER", S/8 


M 13 
170: PRINT "CENTER", E 
N 14 
n 
180: PRINT "UPPER", S/A 
190: END 
0 15 
500: N=O:T=O:S=O 


p 16 
510: INPUT X:GOTO 530 
520: X=T/N:S=S-N*X*X:RETURN 
Q 17 
530: N=N+1:T=T+X 


R 18 
540: S=S+X*X:GOTO 510 


343 
s 19 
s,.,. 


T 20 
.Ex; 


u 21 
v 22 
w 23 


X 24 
Xi' X 


y 25 
z 26 
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SHARP 


Title 
TEST OF MEAN AND VARIANCE 


PROGRAM NO. 
P4-B-5 


[ Formula] 


Test a hypothesis about mean or a hypothesis about variance. 


(Both population mean and population variance should be unknown normal population.) 


The mean conforms to t-distribution of rf> = n -1, while the variance conforms to x 2 - 
distribution of rf> = n -1. Therefore, these values are printed out respectively. 


[ Example] 


1790 
1780 
1800 
1800 
1800 
n = 10 


1810 
1790 
1780 
1810 
1790 
x = 1795 


0 = 10.8012345 


From the samples above, is it permissible to judge the population means as 1800? 


0.41 
0. 39 0.44 0. 64 
0.42 0.59 
n = 12 


0.49 0.44 0. 64 
0.42 0.60 0.38 
o = 1. 001665281 E- 01 


From the data above, test 9"2 = 0.04. 


[ Operation ] 


CLOAD 
VB5V [EllER[ 


ISH fT I ~ ··· ··· Test of mean, processed data 


ISH FT I ~ ..... , Test of mean, unprocessed data 


OOll 00 ······ Test of variance, processed data 


ISH FT I 00 ...... Test of variance, unprocessed data 


Input 
Display 
Note 
Input 
Display 
Note 


1 
I SHFT[ 
~ 
M,N,X,S? 
11 
ISH FT I ~ 
M= 
0 
"""' 
2 
1800 [ENH:R[ 
[ENTER[ 
Ooo 


? 
12 
1800 
? 
·- 
Q) 
fl. 
........ 
~0.. 


3 
10 [ENTER[ ? 
n 
13 
1790 [ENTER[ 
S';· :>. 
0 0.. Q) 


4 
1795 [ENTER[ ? 
X 
14 


u.:~ 


""·;~ 


5 I0.8012345[ENTER[ 
0 
15 Repeat thereafter 
&~ ~ 
:::::>"' ~ 


6 
-1.463850 I 09 
t 
16 
[ENTER[ 
-1.46385011 
t 


7 
[ENTER[ 
9 
¢ 
17 
9 
¢ 


8 
18 


9 
19 


10 
20 
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SHARP 


Title 
PROGRAM NO. 
TEST OF MEAN AND VARIANCE 
P 4- B-5 


Input 
Display 
Note 
Input 
Display 
Note 


1 
ISH FT I 
00 
M,N,S? 
11 
[SHFT[ 
00 
M= 


~-H 
2 
0. 04 [ENTER[ ? 
112 
12 
0. 04 [ENTER[ 
? 
6. 


3 
12 [ENTER[ ? 
13 
0. 41 [ENTER[ 
? 
.5 
n 
., .... 
..c:: ., 


4 0.1001665281 iENTER: 
2.759166673 
11. X2 
14 
..... .::: 
"'<'! 
• 


5 
[ENTER) 
11 
tjJ 
15 Repeat therafter 
~ ~~ 
t:l.o..>o!'"O 


6 
16 
[ENTER) 
2. 759166678 
);2 


7 
17 
[ENTER) 
II 
tjJ 


8 
18 


9 
19 


10 
20 


-48- 


Title 
TEST OF MEAN AND VARIANCE 


PROGRAM NO. 
P 4- B-5 


Memory content 


A 1 
B 2 
c 3 
10: "A":INPUT "~1,N,X,S ?",f·1,N,X,S 
20: E=S/JN :GOTO 50 


D 4 
30: "B":INPUT "~1=";f·1:GOSUB 500 


E 5 
S. E., u 
40: E=.i(S/N/(N-1)) 
50: PRINT (X-M)/E:GOTO 100 


F 6 
60: "X":INPUT "~1,N,S ?",r~,N,E 


G 7 
70: S=E*E*(N-1):GOTO 90 
80: II Z" :INPUT "r·1="; !~:GO SUB 5 00 


H 8 
90: PRINT S!f.i 


I 
9 
100: PRINT N-1 
110: END 
J 10 
500: N=O:T=O:S=O 


K 11 
510: INPUT X:GOTO 530 
520: X=T/N:S=S-N*X*X:RETURN 
L 12 
530: N=N+1:T=T+X 


M 13 
fl. ' 
(}2 
540: S=S+X*X:GOTO 510 
550: END 
N 14 
n 
247 


0 15 
p 16 


Q 17 
R 18 
s 191'1 
S.r.r 


T 20 
u 21 
v 22 
w 23 
X 24 
Xi, X 


y 25 
z 26 


-49- 


SHARP 


Title 
TEST OF DIFFERENCE IN MEANS, RATIO OF 
I 


PROGRAM NO. 
VARIANCES 
P 4- B-6 


[ Formula] 


• Test of difference in means 
Test the hypothesis that the means of two normal populations, of which variances are 
known to be equal to each other but values are not known, are equal to each other. 
The equation 


- 
- 
n1 nz Cn1 +nz- 2) 
x1- Xz 
t --./Sxx1+S.u2 
n1 + llz 


conforms tot-distribution of ¢ = n1 + n2 - 2. 


• Test of ratio of variances 
Test whether the variances of two populations are equal to each other or not. 


F=V1/V2 conforms to F -distribution of 


¢1 = nl - 1, 


¢2 = n2 - 1. 


However, when VI <V2, exchange 1 and 2. 


[ Example] 


• Test of difference in means 
n1= 8, :xl = 2. 075 


1 
2.3 
1.6 
2.1 
2.2 
2.3 
2.0 
1.9 
2.2 
111 = 2. 375469878 E- 01 


2 
2.3 
2.5 
2.0 
2.1 
2.2 
2.1 
nz= 6, Xz = 2. 2 


uz= 1. 788854382 E- 01 


Carry out t-test by using the data above. 


• Test of ratio of variances 


1. 375 
1. 407 
1. 068 
1. 752 
1. 201 
( n, ~ 10, '': 3.261141757 E- 01) 
1 
1. 042 
1. 223 
1. 633 
1. 773 
0. 779 
n2 = 8, 112- 3. 564527359 IE- 01 
1.033 
1. 217 
1. 615 
0. 673 
2 
1. 252 
0.984 
1. 693 
0.840 


Carry out F -test by using the data above. 


Input 
Display 
Note 
Input 
Display 
Note 


1 
OOfl 
~ 
Nl,N2,Xl,X2,Sl,S2? 
11 
[_llil] 
~ 
? 
; 


2 
8 [ENTER] 
12 
2. 3 ]ENTER] 
O."' 
? 
? 
!': 
~ 
·~ ... 


6 ]ENTER] 
..<:: 
0.; :>, 


3 
? 
13 
(.) 
Q) 


~.M"' ~ 


4 
2. 075 ]ENTER I ? 
14 
]ENTER] 
... 
-~ 
2~~ 
'-"-"= 
5 
2. 2 lillr!l ? 
15 
< 0 
~ 


6 . 2375469878 [illER_' 
? 
16 
[ENTER] 
- 1. 076244005 
12 
t • tjJ 


7 . 1788854382 I ENTER i -1.076244005 
12 
t • tjJ 
17 


a· 
18 


9 
19 


10 
20 


-50- 


SHARP 


Title 
TEST OF DIFFERENCE IN MEANS, RATIO OF 
PROGRAM NO. 


VARIANCES 
P 4~ B~6 


[ Operation ] 


CLOAD vB6v [ENTER[ 


liHlfl 
~ ··· ··· Test of difference in means, processed data 


[ SH fT I ~ ······ Test of difference in means, unprocessed data 


liHlfl 00 ······ Test of ratio of variances, processed data 


ISH fT I ~ ······ Test of ratio of variances, unprocessed data 


Input 
Display 
Note 
Input 
Display 
Note 


1 
I SHfT I 
00 
Nl, N2, Sl, S2? 
11 
[ SHFT] 
~ 
? 
N 
. 
2 
10 [ENTER[ ? 
12 
1.375 lilliiD 
'5 ,...;~ ~ 
~4-otz,.!:.t 
"' 
0 ~ 


3 
8 (ENTER[ ? 
13 


H 
~ oo 
"' "'00 
t!:: 
0..·(!) 


4 
3261141757 [ENTER[ ? 
14 :Repeat thereafter 
...:: .siS. 


5 
3564527359 lEITER\ ? 
1.194715643 F 
15 
i E.illli] 
1.194715649 
F 


6 
7. 
9. 
¢1 , ¢2 
16 
[fijij 
7. 
9. 
¢1 , ¢2 


7 
17 


8 
18 


9 
19 


10 
20 
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Title 
TEST OF DIFFERENCE IN MEANS, RATIO OF 
PROGRAM NO. 
VARIANCES 
P 4- B-6 


Memory content 


A 1 


B 2 
c 3 
10: "A" :INPUT "N1 ,N2,X1 ,x2,S1 ,S2 ?" ,~1,N, Y ,x 
,R,s 
D 4 
20: R=R*R*n1-1) 


E 
30: S=S*S*(N-1):GOTO 60 
5 
40: "B":GOSUB SOO 


F 6 
SO: M=N:R=S:Y=X:GOSUB SOO 


G 
60: L=M+N 
7 
70: T=CY-X)*f(M*N*(L-2)/(L*(R+S))) 
H 8 
80: PRINT T,L-2 
90: END 
I 
9 
100: "X":INPUT "N1,N2,S1,S2 ? ", r.,,N, R, s 


~ 10 
110: R=R*R:S=S*S:GOTO 1SO 
120: "Z":GOSUB 500 


K 11 
130: M=N:R=S:GOSUB 500 


L 12 
N1+N2 
140: R=R/CM-1):S=S/(N-1) 
150: IF S>RLET Z=M:M=N:N=Z:Z=S:S=R:R=Z 


M J3 
N1 . N1 
160: PRINT R/S:PRINT M-1,N-1 
N 14 
Nz 
Nz 
170: END 
. 
SOD: N=O:T=O:S=O 
0 15 
510: INPUT X:GOTO S30 


p 16 
S20: X=T/N:S=S-N*X*X:RETURN 
530: N=N+1:T=T+X 
Q 
17 
540: S=S+X*X:GOTO S10 


R 18 
N1 Sl . 0!2 
379 
s 19 
Nz Sl . ol 


T 20 
l:x; . J:Xi 


u 21 
v 22 
w 23 


X 24 
- 
Xz . Xz 


y 25 
- 
XI . X! 
z 26 


-52- 


SHARP 


Title 
REJECTION TEST, TEST OF CORRELATION 
PROGRAM NO. 
COEFFICIENT, TEST OF GOODNESS OF FIT 
P4- B-7 


[ Formula] 


• Rejection test ..... If the data contains one sample which is extremely large (or small) as 
compared with the others, it is judged whether such samle can be ignored 
or not. 
Iftthe value oft is larger than the values shown in the table below, it may 
be ignored. 


N 
1 % 
5 % 
N 
1 % 
5 % 
N 
1 % 
5 % 


3 
1. 414 
1. 412 
11 
2. 606 
2.343 
19 
2. 932 
2.600 


4 
1. 723 
1. 689 
12 
2.663 
2.387 
20 
2.959 
2. 623 


5 
1. 955 
1. 869 
13 
2. 714 
2.426 
21 
2.984 
2. 644 


6 
2. 130 
1. 996 
14 
2. 759 
2.461 
22 
3.008 
2.664 


7 
2.265 
2.093 
15 
2.800 
2.493 
23 
3.030 
2.683 


8 
2. 374 
2. 172 
16 
2.837 
2. 523 
24 
3.051 
2. 701 


9 
2.464 
2.237 
17 
2.871 
2.551 
25 
3. 071 
2. 717 


10 
2. 540 
2. 294 
18 
2.903 
2.577 


• Test of correlation coefficient 


Test a hypothesis, r = 0. 


Use t-distribution of ¢ = n- 2. 


• Test of goodness of fit 


Test the goodness of fit of a distribution. 


When the measured frequencies are n 1 , n2 , ....... , ilk, 


and the expected frequencies are m1 , m2 , ....... , mk , 


xz = L: ( n' - m i) z 
will conform to x 2 -distribution of ¢ = k- 1. 
IDj 


Input 
Display 
Note 
Input 
Display 
Note 


1 
ISH FT I 
~ ? 
11 
I SHFT] 
~ N= 
2 
118 ]EllER] ? 
12 
100 ]EllER] R= 
3 
120 lEITER] 
? 
13 
o.36 ]UTER] N= 
100 


4 
124 [EIUR] ? 
14 
]EllER] 
R= 
.36 
5 
125 ]EutR) ? 
15 
]ENTER] 
T= 
3.819936094 


6 
1~ lOOm ? 
16 
]ENTER] 
DF = 
98 


7 
127 lOOm ? 
17 
ISH FT I 
00 
N= 


8 
140 lill!!l ? 
18 
16]ENTER] M= 


9 
I SHFT] 
[j] 
? 
19 
10 ]ENTER] N= 


10 
140 ]ENTER] 
140 
2.177001632 
20 
8 [ENTER] M= 


? 
]ENTER] 
. 
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SHARP 


Title 
REJECTION TEST, TEST OF CORRELATION 
PROGRAM NO. 
COEFFICIENT, TEST OF GOODNESS OF FIT 
P 4- B-7 


[ Example 1 


(1) 
The following data contains an extremely large number, 140. 
Test to see whether it can be ignored or not. 


118 
120 
124 
125 


126 
127 
140 


(2) 
Given n = 100 and r = 0.36. Test for correlation. 


(3) 
Records of accidents are classified into days of the week, and the following results 
were obtained. 


Monday, 16 
Tuesday, 8 
Wednesday, 12 
Thursday, 11 


Friday, 14 
Saturday, 9 


Is it possible to assume that 10 cases of accident occur evenly on every day of the week? 


[ Operation 1 


CLOAD 
vB7v [ENTER[ 


mm @ 
········ Data input of rejection test 


r-sun ~ ····· ··· Rejection test 


~H_fl] 
~_] ········ Test of correlation coefficient 


[]]II] 00 
········ Data.input of test of goodness of fit 


I SHFT! ~ ········ Test of goodness of fit 


Input 
Display 
Note 
Input 
Display 
Note 


1 
10 
(ENTER[ 
N= 
11 
~J DF= 
5 


2 
12 
[ENTER[ 
M= 
12 


3 
10 
[ENTER[ 
N= 
13 


4 
11 
[ENTER[ 
M= 
14 


5 
10 
[ENTER[ 
N= 
15 


6 
14 
[ENTER[ 
M= 
16 


7 
10 
[ENTER[ 
N= 
17 


8 
9 
[ENTER[ 
M= 
18 


9 
10 
[illER] 
N= 
19 


10 
[]ill] 
~ CHI SOOARE= 
6.2 
20 
-54- 


Title 
REJECTION TEST, TEST OF CORRELATION 
COEFFICIENT, TEST OF GOODNESS OF FIT 
I PROGRAM NO. 


P 4- B-7 


Memory content 


A 1 


8 2 
c 3 


D 4 
10: "A":N=O:S=O:T=O:PAUSE "DATA" 
20: INPUT X 
E 5 
30: N=N+1 :T=T+X 


F' 
40: S=S+X*X:GOTO 20 
6 
50: "B":T=T/N 
G 7 
60: S=["( S/N-T*T> 
70: INPUT >t:PRINT x,ABS ((X-T)/S):GOTO 70 


H 8 
80: "C":INPUT "N=";N:INPUT "R=";R 
I 9 
i 
90: PRINT "N=",N:PRINT "R=",R 


J 


100: PRINT "T=" ,R*[C CN-2) I (1-R*R)) 


10 
110: PRINT "DF=",N-2 


K 11 
120: END 
130: "X"I=O:T=O:PAUSE "DATA" 


L 12 
140: INPUT "N=";N:INPUT "M=";M 


M 13 
m; 
150: X=N-M:I=I+1 
160: T=T+X*X/M 
N 14 
n , n; 
170: GOTO 140 
0 15 
180: "Z":PRINT "CHI SQUARE=",T 
190: PRINT "DF=",I-1 
p 16 
200: END 


Q 17 
305 


R 18 
r 
s 19 
..Ex i 2 


T 20 
..Ex i , ..E 


u 21 
v 22 
w 23 
X 24 
Xi 


y 25 
z 26 


-55- 


SHARP 


Title 
2 x 2 CONTINGENCY TABLE, 2 x n CONTINGENCY 
PROGRAM NO. 


TABLE 
P 4- B-8· 


[ Formula] 


In 2 x 2 contingency table, or 2 x n contingency table, determine the value of x 2 • 


Also, in 2 x 2 contingency table, perform Yates' correction. 


[Example] 


~ 
B1 
Bz 
~ 
1 
2 
8 
4 
5 
6 
7 


AI 
286 
178 
Good 
157 
190 
256 
480 
862 
229 
486 
piece 


Az 
64 
22 


~efective 
13 
25 
19 
52 
82 
16 
27 
piece 


[ Operation ] 


CLOAD V'B8 V' lEITER I 


ISH FT I ~ ....... 2 x 2 contingency table 


ISH FT I ~ ....... 2 x n contingency table, data input 


Llli!l [g ······· 2 x n contingency table, x 2 value 


Input 
Display 
Note 
Input 
Display 
Note 


1 
[illf] 
~ 2*2 CONTINGENCY TABLE 
11 
ISH fT I ~ 2*N CONTINGENCY TABLE 
2 
I ENTER! 
A1B1= 
12 
I ENTER! 
A= 
3 
286IENTERI 
A1B2= 
13 
157IENTERI B= 


4 
178IEITERI A2Bl= 
14 
13[fiill] A= 


5 
64IEITERI 
A2B2= 
15 


;, 


6 
221EITERI 
5.121398501 4.583981467 x 
2 
• x~ 16 
ISH FT I 
[g 
15.31961442 
6 
xz. ¢ 


7 
17 
8 
18 


9 
19 


10 
20 


-56- 


Title 
2 x 2 CONTINGENCY TABLE, 2 x n CONTINGENCY 
PROGRAM NO. 


TABLE 
P 4- B-8 


Memory content 


A 1 
a, a; 


B 2 
b' bi 
10: "A":PRINT "2*2 CONTINGENCY TABLE" 
c 3 
c' TA 
20: INPUT "A1B1=";A 


D 4 
d, TB 
30~ INPUT "A1B2=";B 
40: INPUT "A2B1=";c 


E 5 
e, .I: a ; 2/T; 
SO: INPUT "A2B2=" ;o 


F 6 
f 
60: E=A+C 
70: F=B+D 
G 7 
g 
80: G=A+B:H=C+D 


H 8 
h 
90: N=E+F 
100: I=ABS (A* D-B* C) 
I 9 
110: J=I-N/2 


J 
120: K:::N/ { E*F*G*H) 
10 
130: PRINT I*I*K,J*J*K 
K 11 
140: END 


L 
150: "B" :PRINT "2*N CONTINGENCY TABLE" 


12 
160: N=O:C=O:D=O:E=O 


M 13 
170: INPUT "A=";A:INPUT "B=";B 


N 
180: C=C+A:D=D+B 
14 
n 
190: E=E+A* A/ { A+B) 


0 15 
200: N=N+1:GOTO 170 
210: "C":T=C+D 
p 16 
220: PRINT T*T*{E-C*C/T)/{C*D),N-1 


Q 17 
230: END 
334 
R 18 
s 19 


T 20 
T 
u 21 
v 22 
w 23 


X 24 
y 25 
z 26 


-57- 


SHARP 


Title 
PROGRAM NO. 


m xn CONTINGENCY TABLE 
P 4- B-9 


[ Formula] 


In an m x n contingency table 
as shown on the right, calculate 
~ 
I ·····- 
j ...... n 
§t 


the value of x 2 . 
I 
...... aij ·•···· a1n 
R 
all 
m 
n (E;j-aij) 2 


xz = L: 
L: 
E;j 
: 
: 
i c=1 j=l 
i a; 1 ...... a;j ······Gin :R; 


where, 
E;j = R;*Ci 


N 
m Om1 ...... amj ...... Omm Rm 


Degree of freedom 
Total cl ...... Cj ...... Cn 
N 
(d. f.)= (m-l)*(n-1) 


[ Example] 


(m=3,n=4) 
(NOTE 1) Calculation is possible only in 


23 
40 
16 
2 
81 
contingency table where m + n ~ 16. 


11 
75 
107 
14 207 


When m + n > 16, ERROR message is 
displayed, which can be cleared by 


I 
31 
60 
I 0 102 
[ffi!:"1] button. 


35 
146 
183 
26 390 
(NOTE 2) The input order of a ii is: 
a 11 , a12 , a13 , ....... a,n, a 21 , ....... 


am,n-1, amm 


[ Operation ] 


CLOAD 'VB9\7 I ENTER I 


Input 
Display 
Note 
lnp!-lt 
Display 
Note 


1 
ISH FT I 
~ 
M= 
11 


2 
3llli!!l N= 
12 
10 [ffiij] 
Q~= 
6. 


3 
41ENTERI 
R(I) = 
13 
lEITER\ 
CHI SQ = 69.38932827 


4 
81 [ijfij] 
II 
14 


5 
15 


6 
1021ENTERI 
C(J)= 
16 


7 
35[ENTER] 
II 
17 


8 
18 
9 
26llli!_~ L;A(I,J)= 
19 


10 
23 ~!ill] 
II 
20 
-58- 


Title 
m x n CONTINGENCY TABLE 
I 


PROGRAM NO. 
P4-B-9 


Memory content 


A 1 
i control 


B 2 
n 
c 3 
m 
10: "A": D=O: INPUT 
"r~="; C: INPUT "N=";B 


D 
20: IF B+C>16PRINT "ERROR":GOTO 10 


4 
N 
30: FOR A=11TO C+10 


E 5 
j control 
40: INPUT "R (I)="; A( A) 
50: D=D+A( A) 
F 6 
Gij 
60: NEXT A 
G 7 
E;j 
70: FOR A=2TO 8+1 
80: E=28-A 
H 8 
x2 
90: INPUT "C(J)=";A(E) :A(E)=A(E)/D 


I 
9 
Memory No. having Cn 
100: NEXT A 
110: H=O:I=26-B 
J 10 
120: FOR A=11TO C+10 


K 11 
R1 
130: E=26 
140: INPUT "L;A(I,J)=";F 


L 12 
R2 
150: G=A(E)*A(A) :F=F-G:H=F*F/G+H:E=E-1 


M 13 
160: IF E<>IGOTO 140 
170: NEXT A 
N 14 
180: PRINT "D.F.=",(B-1)*(C-1) 


0 15 
190: PRINT "CHI SQ=";H 


Rm 
200: END 
p 16 
290 


Q 17 


R 18 
s 19 
Cn 


T 20 
u 21 
v 22 
w 23 


X 24 
c3 
y 25 
C2 
z 26 
cl 


-59- 


SHARP 


I 


PROGRAM NO. 
Title 
CORRECTION MOVING AVERAGE 
P 4- B-10 


[ Formula] 


Determine the correction moving average. 


Data: 
X1 , X2 , x3 , ··· ··· , x; , ··· · ·· 


1: when n is an odd number 
n 
- 
L: 
x1= 
X i/n 
i=l 
ntl 
X2= 
X i/n 
j=2 


2: when n is an even number 


_ = ( X1+Xn+1 I f 
")/ 
X1 
2 
2 
._ X z 
n 
,_2 


__ ( X2+Xn+z+ t . )/ 
Xz- 
- 
-- 
Xz 
n 
2 
2 
i=3 


In the event of regression analysis, when the moving average is taken by adjusting to the 
period, if any, effects of minor period fluctuations may be canceled. ( n ~ 21) 


[Example] 


Correction moving average of 4 terms 


Data: ........ 56, 
79, 
0, 
97, 
20, 
23, 


99, 
68, 
34, 
93, 
31 


[ Operation ] 


CLOAD vB10v 
[ENTER[ 


Input 
Display 
Note 
Input 
Display 
Note 


1 
I SHFTI 
~ 
HOW MANY TERMS ? 
11 
99 [ENTER[ 
99. 
47.375 
2 
4 [EllER[ 
X= 
12 
[ENTER[ 
X= 
3 
56 [ENTER[ 
X= 
13 
68 [ENTER[ 
68. 
56.125 
4 
79[ENTER[ 
X= 
14 
[ill)i] 
X= 
5 
0 [ENTER[ 
X= 
15 
34 [ENTER[ 
34. 
54.25 
6 
97 [ENTER I X= 
16 
[ENTER[ 
X= 


7 
20 [mER[ 
20. 
53.5 
Input value, 
mean 
17 
93 [ENTER[ 
93. 
64.75 


8 
[ENTER[ 
X= 
18 
[ENTER[ 
X= 


9 
23 [ENTER[ 
23. 
42 
19 
31 [ENTER[ 
31. 
65. 


10 
(ENTER[ 
X= 
20 
-60- 


Title 
CORRECTION MOVING AVERAGE 
PROGRAM NO. 
P 4- B-1 0 


Memory content. 


A 1 
n 
B 2 
n-1 
c 


10: "A":INPUT "HOW MANY TERMS ?",A 


3 
i 
20: E=O 


D 4 
30: IF A<> INT C.S*A)*2GOTO 130 


X 
40: FOR C=6 TO A+S 
E 5 
Sum 
50: GOSUB 500 


F 6 
60: NEXT C 
70: FOR C=6TO A+S 
G 7 
"' 
80: INPUT "X="iD 


Q) 
..... 
90: E=D+E:PRINT D,(E-.S*CD+A(C)))/A 
H 8 
"' "' 
100: E=E-A(C) :ACO=D 
..... 
"' 
I 9 
0 
110: NEXT C 


J 10 
120: GOTO 70 
130: FOR C=6TO A+4 
K 11 
140: GOSUB 500 
150: NEXT C 
L 12 
160: B=A+S:INPUT "X="iA(B):B=A-1 
M 13 
170: E=E+A(B+6) 
180: PRINT A(B+6),E/A 
N 14 
190: FOR C=6TO 8+6 


0 15 
200: INPUT "X="iD 
210: E=E-A(C)+D:A(C)=D 
p 16 
220: PRINT D,E/A:NEXT C 


Q 17 
230: GOTO 190 
240: END 
R 18 
500: INPUT "X="iD 


s 19 
510: E=D+E:ACC)=D:RETURN 
314 
T 20 
u 21 
v 22 
w 23 
X 24 
y 25 
z 26 


-61- 


SHARP 


Title 


PROGRAM NO. 
RANDOM NUMBERS 
P 4- B-11 


[ Formula] 


Generate random numbers according to the congruence method. 


xn+l = 23xn-int ( 


1 ;~~~) X( 10 8+1) 


Xo is an arbitrary 8-digits integer. 


[ Example] 


Clear all memories, and generate ten random numbers at the initial value = 0. 


[ Operation ] 


CLOAD \7B11 \7 
[mEl!: 


(Note) Make sure the memory X is loaded with no character. If the memory is loaded with 
character, an error will occur. 


Input 
Display 
Note 
Input 
Display 
Note 


1 
fSHFT] 
~ 
INITIAL VALUE = 
11 
[ENTER[ 
9. 
13784262 
2 
0 [ENTER[ 
NUMBER= 
12 
[ENTER I 10. 
17038023 


3 
10 [ENTER[ 
1 
10100381 
13 


4 
[ENTER[ 
2 
32308761 
14 


5 
[ENTER[ 
3 
43101496 
15 


6 
[ENTER[ 4 
91334399 
16 


7 
[ENTER[ 
5 
691156 
17 


8 
[ENTER[ 6 
15896588 
18 
9 
[ENTER[ 7 
65621521 
19 


10 
lillE!l 8 
9294968 
20 


-62- 


Title 
RANDOM NUMBERS 
I PROGRAM NO. 


P4 ~B-11 


Memory content 


A 1 
i 


8 2 
23 X 


10: "A":INPUT "INITIAL VALUE =";z 
c 3 
20: INPUT "NUMBER=";N 


D 4 
30: X=ABS ( 439147+X+Z) 
40: E=I3+·j 
E 5 
I 08 +I 
50: FOR .0.=1 TO N 
F 6 
60: B=23*X 
70: X=B-INT (B/E)*E 
G 7 
SO: BEEP 2 :PRINT A, X 


H 8 
90: NEXT A 


100: END 


I 9 
121 


J 10 
K 11 
L 12 


M 13 


N 14 
n 


0 15 
p 16 


Q 17 


R 18 
s 19 


T 20 
u 21 
v 22 
w 23 


X 24 
y 25 
z 26 


-63- 


SHARP 


Title 
SUM OF PRODUCTS, CORRELATION COEFFICIENT, PROGRAM NO. 
LINEAR REGRESSION (y =ax+ b) 
P 4-B-12 


[ Formula] 


Determine the covariance between two related variables, correlation coefficient, and linear 
regression coefficient, and estimate on the basis thereof. 


Sxx =L;xi 2 - 
nx 2 


Sxy =Lxiyi- nxy 
s 
-L;y 2 
-2 
yy- 
I 
- 
ny 
c = Sxy/n 
········· covariance 


r 
= Sxy//Sxx Syy ····· · correlation coefficient 


a 
= S xy/Sxx 
} 
regression coefficient (y = ax+ b) 
b 
= Y -ax 


[ Example] 


X 
6.9 
7.6 
7.6 
9.0 
8.1 
6.5 
6.4 
6.9 


y 
12 
10 
9 
5 
6 
15 
14 
12 


[ Operation ] 


CLOAD vB1 2v 


[li[lj ~ ······· Data input 


[ SH FT I ~ ······· Result 


Input 
Display 
Note 
Input 
Display 
Note 


1 
I.SH uJ 
~ 
X,Y 
11 
[ENTERj 
c 
-3.060714286 


2 
( 


~ 


[ENTERj 
... 3.942042318 
;:: 
12 
A 


C1) 


3 
_'l 
;:: 
13 
lillEID 
B 
39.4475621 
0 


) 


<.) 
ltN.liiD 
4 
.s 
14 
R 
-9.69396£-01 
"' 
5 


/ 
Ci 
15 
llli.£.Rj 
ESTIMATION 


6 
, SH FT 
~ 
MEAN 
16 
~lillEID X= 
-- 
7 
~ENTER[ 
7.375 
10.375 
17 
I 
to II!!EID 
10 
0.02713892 


8 
]ENTER] 
VARIANCE 
18 


9 
[ENTER] 
7.764281E-01 12.83928571 
19 


10 
[ENTER] 
SXY 
-21.425 
20 


-64- 


Title 
SUM OF PRODUCTS, CORRELATION COEFFICIENT, 
PROGRAM NO. 
LINEA.R REGRESSION (y =ax+ b) 
P4-B-12 


Memory content 


A 1 
a 
B 2 
b 
c 3 
10: "A":PAUSE "DATA" 
20: FOR A=9Tu 14 
D 4 
30: A(A)=O 


E 5 
4n· NEXT A 
50: INPUT "X,Y",X,Y 


F' 6 
60.: I=I+X 


G 7 
70: J=J+Y 
80: K=K+X*X 
H 8 
90: L=L+X*Y 


I 
100: 1·1=f<l+Y*Y 
9 
.I;x i 
110: N=N+1 


J 10 
.}; Yi 
120: GOTO 50 
130: "B" :I=I/N:J=J/N 


K 11 
.I;x;z 
140: K=K-N*I*I:L=L-N*I*J 
L 12 
.I;x i y; 
150: r·l=r~1-N*J*J 
160: PRINT "MEAN" 


M 13 
.}; y ;2 
165: PRINT I,J 
N 14 
170: PRINT "VARIANCE" 
n 
K I ( N-1 ) , ~11 ( N-1 ) 
175: PRINT 
0 15 
. 
180: PRINT "SXY",L 


p 16 
190: PR !NT 
II C" ,L/ OJ-1) 
200: A=LIK:B=J-A*I 
Q 17 
210: PRINT "A",A:PRHJT "B",B 


R 18 
220: PRH!T "R" ,L([(K*f-1) 
230: PRINT "ESTIMATION" 
s 19 
240: INPUT "X="iX 


T 20 
250: PRINT x, .A.*X+B 
260: GOTO 240 


u 21 
270: END 
v 22 
335 
w 23 


X 24 
Xi 
y 25 
yi 
z 26 


-65- 


SHARP 


Title 


PROGRAM NO. 
EXPONENTIAL REGRESSION 
P 4- B- 13 


[ Formula 1 


Fit two sets of data, xi, Yi, to the exponential curve y = abx, and determine coefficients 
a, b, and correlation coefficient r. 


x=.z=x,/n, Y=L lnyt/n 


Sxx =.z=x 2t-nx 2 


SxY = L Xtlnyt-ni'Y 


Syy =L(Inyt)LnY 2 


SxY 
b'=~ a= eY-b'x 
b = eb' 
r - 
' 
- /sxx Syy 
Sxx 
' 


[ Example 1 


X 
0. 5 
1.2 
3. 1 
7. 4 


y 
7. 01 
11.72 
44.54 
936.71 


Fit this data to y = a bx, and estimate when x = 8.3, -1.2 


[ Operation 1 


CLOAD 
\7B13\7 
[ENTER] 


Input 
Display 
Note 
Input 
Display 
Note 


1 
ISH FT I 
~ 
X,Y 
11 
i siiTI] 
~ 
R 
9.999941E-0 


2 
.5 fu® ? 
12 
[MffRI A 
4.960331916 
3 
7.01 
~ill X,Y 
13 
iENTER[ 
B 
2.03057723 


4 
1.2 
[lli[R1 ? 
14 
I ENTER[ 
ESTIMATION 


5 
11.72 
[ENTER[ X,Y 
15 
[ENTER I X= 


6 
3.1 
[ENTER[ ? 
16. 
8.3 [ENTER] 
8.3 
1773.179438 
7 
44.54 
lffiE_R] 
X,Y 
17 
[ENTER[ x= 


8 
7.4 
[ENTER[ 
? 
18 
-1.2 [ENTER] 
-1.2 
2.12015359 


9 
936.71 
[@ X,Y 
19 


10 
20 


-66- 


Title 
EXPONENTIAL REGRESSION 


PROGRAM NO. 
P4-B-13 


Memory content 
A 1 


8 2 
c 3 
10: "A":FOR A=9TO 14 
20: A(A)=O:NEXT A 
D 4 
30: PAUSE "DATA" 


E 5 
40: INPUT "X,y",X,Y 
50: Y=LN Y 


F" 6 
60: I=I+X:J=J+Y 


G 7 
70: K=K+X*X:L=L+X*Y 
80: M=M+Y*Y:N=N+1 


H 8 
90: GOTO 40 


I 9 
.1) X j 
100: "8":X=I/N:Y=J/N 
110: K=K-N*X*X 
J 10 
.l:Y; 
120: L=L-N*X*Y 


K 11 


130: r~=~1-N*Y*Y 
.1: xz; 
140: 8=LIK: A=EXP ( Y-8*X) 


L 12 
.I:x ;Y; 
150: 8=EXP 8 


M 13 
.I;Y2; 
160: PRINT "R" ,L/.f(K*m 
170: PRINT "A" ,A:PRINT "8" ,8 
N 14 
i , n 
180: PRINT "ESTIMATION" 
190: INPUT "X=";X 
0 15 
200: PRINT X,A*8"'X 


p 16 
210: ·GOTO 190 
220: END 
Q 17 
270 


R 18 
s 19 


T 20 
u 21 
v 22 
w 23 
X 24 
Xi, X, 
A X 


y 25 
Y;, y 


z 26 
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SHARP 


Title 


PROGRAM NO. 
CORRECTION EXPONENTIAL CURVE 
P4-B-14 


[ Formula] 


In a correction exponential curve expressed in y = k -a bx, supposing the value of k 
is known and unknown, calculate coefficients (also k if unknown), and estimate the value 
of y with respect to the value of unknown x. 


l.k known 


y=k-abx 


k-y=abx 


Taking the logarithm of both sides yields 


f!n (k-y)=f!na+xi!nb 


Now, assuming Y=ln(k-y), A= lna, B = lnb, then we obtain 


Y=A+Bx 


Hence, the coefficients can be calculated by the method of least squares as follows: 


A= 


.}; X z .};Y -.};X.}; X Y 


n..E x 2- (..Ex) 2 


B= n.J; xY-.}; x ..EY 
n..Ex 2-(..Ex ) 2 


a= eA 
{ 
b = e 8 


2. k unknown 


Expressing the data as 3n (discarding fractions of 3), the data is divided into three 
kinds: O~x~n, n~x~2n, 2n~x<3n. 


Respective partial sums are expressed as follows: 


n-1 


LlY=L: Yi 
i=O 


Input 
Display 
Note 
Input 
Display 
Note 


1 
lj_H_U_I 
~ 
N= 
11 
35 [illjl] Y= 
2 
5[N_mJ K= 
12 
545[ENTER[ X= 
3 
550 ffi.al DATA 
13 
60 [ENTER[ Y= 
4 
X= 
14 
547 [ENTER] A= 
10.0556453 
5 
1 lEilliD Y= 
15 
[II@ B= 
9.801181E-01 


6 
540.2 [ENTER] 
X= 
16 
[ill~ ESTIMATION 


7 
2 [ENTER] 
Y= 
17 
[ENTER] X= 


8 
540.4[fNTERj 
X= 
18 
5[ENHR] 
5. 
540.9050113 


9 
12[fNTER] 
Y= 
19 
ltNill1 X= 


10 
542 [liillJ X= 
20 
15 [illRl 15. 
542.5597658 
-68- 


SHARP 


l 


PROGRAM NO. 
Title 
CORRECTION EXPONENTIAL CURVE 
P4-B-14 


2n-! 
LzY= L 
Yi 


i=n 


3n-1 


L3Y= L 
Yi 


i=Zn 
Hence, 


b = ('E3y-.2zy)~ 
.2zy-.2,y 


b-1 
a= (.2,y-.2zY\bn-1)2 


1 
(bn-1) 
k = n[.2, y+ b=I a] 


[Example] 


1. k known 
2. k unknown 


k=550 
The table on the right 
Year 
t 
Yield (million koku)y 


Xi 
Yi 
is a record of yield of 
1883 ~ 1887 
0 
33.8 
rice in Japan. 
1888~1892 
1 
38.9 


1 
540.2 
Plot the record in 
1893 ~ 1897 
2 
37.7 
curve, and estimate 
1898~1902 3 
42.5 
2 
540.4 
when x = 15, 16. 


1903~1907 4 
46.3 


12 
542 
LJ 
199.2 


35 
545 
1908 ~ 1912 
5 
50.6 


1913 ~ 1917 
6 
55.2 


60 
547 
1918 ~ 1922 
7 
58.9 
1923 ~ 1927 
8 
58.0 
1928-1932 
9 
60.5 
Lz 
283.2 
Estimation 
1933- 1937 10 
62.8 
x= 5 
1938-1942 11 
63.5 
1943 - 194 7 12 
60.4 


x= 15 
1948- 1952 13 
63.9 


1953- 1957 14 
68.2 


L3 
318.8 


Input 
Display 
Note 
Input 
Display 
Note 


1 
[sHFTI 
~I 
HOW MANY DATA ? 
11 
15IEMTER[ 
15. 65,95848202 
2 
15 [ENTER[ Y= 
12 
[ENTER[ 
X= 
3 
33.8 [ENTER] Y= 
13 
16 ]ENTER] 
16. 66.43785267 
4 
Y= 
14 


5 Repeat thereafter Y= 
15 


6 
68.2 ]ENTER] A= 
39.91657038 
16 


7 
[ENTER] B= 
8.42236 IE-01 
17 


8 
[ENTER] K= 
68.9970248 
18 


9 
[ENTER] ESTIMATION 
19 


10 
[fillii] X= 
20 


-69- 


SHARP 


Title 
PROGRAM NO. 
CORRECTION EXPONENTIAL CURVE 
P 4-B-14 


[ Operation ] 


CLOAD \7Bt4\7 
[EllER[ 


I SHFT[ ~ ....... kknown 


ITillJ [il ....... kunknown 


Input 
Display 
Note 
Input 
Display 
Note 


1 
11 
2 
12 
3 
13 


4 
14 
5 
15 


6 
16 


7 
17 
8 
18 
9 
19 


10 
20 


-70- 


Title 


PROGRAM NO. 
CORRECTION EXPONENTIAL CURVE 
P4-B-14 


Memory content 


A 1 Control 
variable, a 
n,a 


B 2 Denominator , b 
2n,b 
c 3 
n 
i, n, k 
1 0: "A":CLEAR : HJPllT "N=";D:INPUT "I<="iC 
20: PAUSE "DATA" 


D 4 
.I:x 
3n+a 
30: FOR A=1TO D 
bn-1 


E 5 
.I:xz 
.I:!y 
40: INPUT "X="iX:INPUT "Y="iY 
50: Y=LN ( C-Y) 


F 6 
.I:y 
.I:zy 
60: E=X+ E: F=X* X+ F 


G 7 
.I:xy 
.I:3y 
70: G=Y+G: H=H+ ):*Y 
80: NEXT A 
H 8 
90: B=D*F-E*E 


I 9 
100: A=( F*G-E*H) /B 
11::): B=( D*tl-E*G) /B 
J 10 
120: A=EXP A :8= EXP D 


K 11 
130: PRINT "A=",A 
140: PRINT "B=",B 


L 12 
150: PRINT "ESTIMATION" 
160: INPUT .,,,_,.. v 
M 


,,- ,,, 


13 
170: PRINT x, C-Ao<B"'X: INPUT "X=";X:GOTO 170 


N 14 
180: END 
190: "B":CLEAR :INPUT "HOW MANY DATA ?", D 


0 15 
200: A= INT (D/3) 
p 16 
210: FOR C=1TO 3' 
220: FOR X=C* A-A TO C* r\-1 


Q 17 
230: INPUT "Y="iY 


R 18 
240: A( C+L•) =Y+A( C+4) 
250: 
~EXT X:NEXT c 
s 19 
260: C=A:B=((G-F)/(F-E))A(1/C) 


T 20 
270: D=BAC-1:A=(E-F)*(B-1)/(D*D) 
280: C=(E+D*A/(S-1))/C 


u 21 
290: PRINT "A=",A 


v 22 
300: PRINT "B=",B 
310: PRINT "K=",C 
w 23 
320: PRINT "ESTIMATION" 


X 24 
330: INPUT "X=";x 


X 
340: PRINT x, C- A1:8"X: INPUT "X=";X:GOTO 340 


y 25 
y 
350: END 
z 26 
508 
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SHARP 


Title 
PROGRAM NO. 
LOGISTIC CURVE 
P4-B-15 


[ Formula] 


In a logistic curve expressed in 
k 
supposing k is known and unknown, 
y= 1 +me-ax ' 
determine the coefficients m, a (also k if unknown), and fine the estimation of y with 
respect to the value of unknown x. 


1. k known 


k 
y = 1+me-ax 
(!_I) =me-ax 
y 


k 
f!n ( --1) = f!nm-ax 
y 


Assuming Y = ln( }5_ - 1), A= lnm, B =-a, we obtain 
y 


Y=A+Bx 


Hence, according to the method of least squares, it follows that 


A= .Ex 
2.EY-.Ex.ExY 
n.Ex2-(.Ex) 2 


B= n.ExY-.Ex.EY 
n.E x 2- (.Ex ) 2 


m= eA 
:. { 
a =-B 


2. kunknown 


Taking inverse numbers of both sides of an equation expressing a curve, 


_!_ = _!_+me -ax 
y 
k 
k 


Now, assuming 
Y=_!_ 
I 
A=-m 
B = e-a 
we obtain 
y' K=k' 
k. 
' 


Input 
Display 
Note 
Input 
Display 
Note 


1 
c-smJ 
~ 
N= 
11 
!UTERI M=48. 10443978 


2 
3lE1TERJ K= 
12 
IEITERJ ESTIMATION 


3 
1951£1TEII DATA 
13 
lnml X= 
4 
X= 
14 
5 (ijf[j] 
5. 
39.8192162 
5 
2 IEIT£11 Y= 
15 
lnml X 


6 
l!IEIHRI X= 
16 
12 lnml 
12. 174.80336050 


7 
6IE1TERI Y= 
17 


8 
54 [UTERI X= 
18 
g 
10 lnml Y= 
19 


10 
150 lEITER! 
A=5.02626 IE-01 
20 


-72- 


SHARP 


l 


PROGRAM NO. 
Title 
LOGISTIC CURVE 
P4 -B-15 


Y=K-ABx 


This can be determined by the method of correction exponential curve as follows: 


B = ( I3Y-I2Y p 
I 
2Y-I1Y 


B-1 
A= ( I1Y-IzY) (Bn-J ) 2 


K = ~[ I1Y+ (~:nA J 


a= -£nB 


:. { k = VK 


m= -kA 
Year 
Term 
t 
Yt Total (100 sets) 
1 
0 
40 
[Example] 
1956 
2 
1 
50 


3 
2 
67 
1. k known 
2. k unknown 
4 
3 
88 


The table on the right 
1 
4 
119 
2 
5 
146 
k=195 
shows the number of 
1957 
3 
6 
182 
TV sets in a certain 
4 
7 
223 
Xi 
Yi 
local district. 
1 
8 
273 


2 
11 
Plot the data in curve. 
1958 
2 
9 
322 
3 
10 
388 


6 
54 
And, estimate the value 
4 
11 
475 
of y when x = 20, 21, 
1 
12 
591 


10 
150 
22. 
1959 
2 
13 
713 
3 
14 
845 
4 
15 
983 


(Estimation) 
1 
16 
1. 143 


1960 
2 
17 
1, 256 
3 
18 
1, 377 
x= 5 
4 
19 
( 1, 513) 


18 
X= 15 
2: 
9,281 
t=O 


Input 
Display 
Note 
Input 
Display 
Note 


1 mm 
~ HOW MANY OATS ? 
11 
20 [EllER[ 20 
1584.558488 
2 
20 [EllER[ Y= 
12 
[EllER[ 
X= 


3 
40 [EITER[ Y= 
13 
21 [ENTER[ 21. 
1677.979932 


4 
14 
[EllER[ 
X= 
5 Repeat thereafter 
15 
22 [EllER[ 22. 
1758.671085 


6 
1256 [fillR[ A= 
2.50744E-01 
16 


7 
[EllER[ M= 
50.49168896 
17 


8 
[EITER[ K= 
2115.67291 
18 


9 
[ENTER[ ESTIMATION ? 
19 


10 
[ENTER[ X= 
20 
-73- 


SHARP 


Title 
PROGRAM NO. 
LOGISTIC CURVE 
p 4- B-15 


[ Operation ] 


CLOAD VBt5V 
]£ITER] 


I SHFT] ~ ....... kknown 


1 sm] ~ ....... kunknown 


Input 
Display 
Note 
Input 
Display 
Note 


1 
11 
2 
12 
3 
13 


4 
14 
5 
15 


6 
16 


7 
17 


8 
18 
9 
19 


10 
20 


-74- 


PROGRAM NO. 
Title 
LOGISTIC CURVE 
l P 4 -B-15 


Memory content 


A 1 Control 
A 
variable , 'm n,A,m 


B 2 Denominator,B,a 2n,B, a 
c 3 
k 
i ,n,K, k 


:ITJPUT "N=";D:INPUT 
3n+a 
10: "A":CLEAR 
"K=";C 
D 4 
n 
bn -1 
20: PAUSE "DATA" 


E 5 
.I;x 
.I;!y 
30: FOR A=1TO D 
40: INPUT "X=";X:INPUT "Y=";y 


F' 6 
.I;xz 
.I;zy 
50: Y=LN ( Cl Y-1) 


G 
.I;3y 
60: E=X+E: F=X*X+F 
7 
.I;Y 
70: G=Y+G:H=X*Y+H 


H 8 
.I;xY 
80: NEXT A 
90: B=D*f-E*E 
I 9 
100: A=( F*G-E*H) /8 
J 10 
110: G=(D*H-E*G)/8 
120: A=EXP A:S=-8 
K 11 
130: PRINT "A=",B 


L 12 
140: PRINT II rv1=", A 
150: PRINT "ESTIMATION": INPUT "X=";x 
M 13 
160: PRINT X,C/ (1 +A*EXP (-B*X)):INPUT "X" ,x 
N 14 
170: GOTO 160 
180: END 
0 15 
190: "B":CLEAR :INPUT "HOW f"lANY DATAS ?",D:A 
p 16 
=INT (0/3) 
200: FOR C=1TO 3 
Q 17 
210: FOR X=C*A-ATO' C*A-1 


R 18 
220: INPUT "Y=";y 
230: A(C+4)=1/Y+A(C+4) 
s 19 
240: NEXT X:NEXT C 


T 
250: C=A :B=((G-F) I (F-E))"( 1/C) 
20 
260: D=B"C-1:A=(E-F)*(B-1)/(D*D) 
u 21 
270: C=(E+D*A/(8-1))/C 
280: C=1/C:A=-A*C:B=-LN 8 
v 22 
290: PRINT "11=",8 


w 23 
300: PRINT "rl=", P.. 
310: PRINT ":<=",c 
X 24 
320: PR IrJT "ESTH1ATIOrJ ?":INPUT "X=";X 


y 25 
X 
330: PRitiT X,Cf (1+A*EXP ( -B* X)) :INPUT 
11 X="iX 
340: GOTO 330 
z 26 
y,Y 
350: END 
548 
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SHARP 


Title 


PROGRAM NO. 


1-WAY LAYOUT 
P 4 -B-16 


[ Formula] 


This program calculates analysis of variance by 1-way layout. 


Level of factor 
Ai (i = 1 ~ m) 


Number of replic::ations 
j G = 1 ~ n) 


Data at j-th time in Ai level 
X ij 


n 
T; = L :t:jj 
j=l 


CT = ( ST; ):Ymn 


ST =S.rjj-CT 


SA = ST2;/n-CT 


SE = ST-SA 


~T =mn-1 


~A =m-1 


~E = ~T-~A=m(n-1) 


VA = SA/~A 


VE = SE/~E 


F 
= VA/VE 


[Example] 
Level 
Xij 


A1 -1 
2 
1 
1 -4 


A2 
I 
2 -4 
3 -1 


A3 -3 
0 -2 -2 -4 


A4 
7 
1 
2 
3 
3 


[ Operation ] 
CLOAD vB16v 
[ENTER[ 


Input 
Display 
Note 
Input 
Display 
Note 


1 
ISH FT I ~ 
N= 
11 
[UTERI 
DF A= 
3 
2 
5 [Eiill] A= 
12 
[uTERI 
DF E= 
16 
3 
4[ENTER[ X= 
13 
[ENTER[ 
DF T= 
19 
4 
-1[EITER[ X= 
14 
[ENTER[ 
VA= 
24.85 
5 
2 [EITEl[ X= 
15 
[ENTER[ 
VE= 
5.2 
6 
16 
[ENTER[ 
F= 
4.778846154 
7 
17 
8 
3 [EITEl[ SA= 
74.55 
18 
9 
[ENTER[ 
SE= 
83.2 
19 


10 
[ENTER[ 
ST= 
157.75 
20 
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Title 
1-WAY LAYOUT 
PROGRAM NO. 
P4 -B-16 


Memory content 


A 1 
i , VA 


B 2 
c 3 
10: 
II A": INPUT "N=";N:INPUT "A=";M 
20: T=O:S=O:U=O 


D 4 
30: FOR A=1TO M 
E 5 
SE 
40: I=O:J=1 
50: INPUT "X=";X 


F 6 
60: I=I+X:S=S+X*X 
G 7 
70: IF J<>NLET J=J+1:GOTO 50 
80: T=T+I:U=U+I*I 
H 8 
90: NEXT A 


I 9 
T;, (Jr 
100: T=T*T/M/N 
110: S=S-T:U=U/N-T 
J 10 
j 
120: I=M*tJ-1 :N=N-1 
K 11 
130: E=S-U:N=I-M 
140: A=U/M:V=E/N 
L 12 
150: PRINT "SA=" ,u :PR HIT "SE=",E 


M 13 
(JA 
160: PRINT "ST=",S:PRINT "DF A=", H 
a, 
170: PRINT "DF E=",N:PRINT "DF T=",I 


N 14 
n, (JE 
180: PRINT "VJ\=",A:PRINT "VE=",V 
190: PRINT "F=",A/V 
0 15 
200: END 
p 16 
293 


Q 17 


R 18 
s 19 
L) X2ij , ST 


T 20 
T, CT 
u 21 
.ET2; • SA 


v 22 
VE 
w 23 
X 24 
Xij 


y 25 
z 26 
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SHARP 


PROGRAM NO. 
Title 
2-WAY LAYOUT 
P4 -B-17 


[ Formula] 


2-way layout data (with no repetition) 


Data r 
Ar 
A2 
... 
A; 
... 
A a Total Mean 
Correction CT=T2 .. /a.b 
Br 
x11 
X21 
... 
Xi 1 
... 
Xar 
T.r 
x.r 
term 


B2 
X12 
X22 
... 
X i2 
... 
Xa2 
T.2 
x.2 
Total 
variation 
Sr =44(x;j-x .. ) 2 


I J 


Bj 
X!j 
X2j 
... 
Xij 
... 
Xaj 
T.j 
X.j 
=.I:.I: X2ij -CT 
I 
J 


~r=a,b-1 


Bb 
Xrb 
X2i> 
... 
Xib 
... 
Xab 
T.b 
X.b 


A 
Total 
Tr. 
T2. 
... 
T· 
I, 
. .. 
Ta. 
T. 
variation 
SA =b . .I:(x;.-x .• ) 2 


I 
Mean! 
:x=r. 
:x2. 
... 
:Xi. 
. .. 
X a. 
x •• 
=.,fT2i./b-CT 
I 


¢A= a-1 


Sum of 
Degree of 
Unbiased 
Unbiased 
B 
Factor squares 
freedom¢ 
variance V 
variance· ratio F 
variation 
SB =a.f (x. i-:X .. ) 2 


CAJ 
SA 
~A = a-1 
VA= SA/~A FoA=VA/Ve 


J 


CBJ 
SB 
~B = b-1 
= .I:T2. i /a-CT 


VB= SB/~B FoB=VB/Ve 


~e=Ca-1Xb-l) 
~B = b-1 
e 
Se 
Ve = Se/~e 


Error 
Total 
Sr 
~r= a. b-1 
variation 
Se=.I:.I: (X ij -:Xi. 
i j 
* a is not limited in the level. b ~ 17 
-:x. i+:x .. )2 


= Sr-SA-SB 


~ e = ( a -1 ) ( b- I ) 


Input 
Display 
Note 
Input 
Display 
Note 


1 
I SHFT] 
~ A,B ? 
11 


2 
4 IENTERI ? 
12 


3 
3 IENTERI X= 
xll 
13 


4 
24jENTERI X= 
X12 
14 


5 
23jEMTERI X= 
X13 
15 


6 
25[@!) X= 
X21 
16 


7 
19 iENTERJ X= 
X22 
17 


8 
18 
18 I ENTER I 
X- 
X41 
9 
19 
58 I ENTER I X- 
X42 


10 
20 
29 I ENTER I 
X43 
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SHARP 


Title 
1 


PROGRAM NO. 


2-WAY LAYOUT 
P 4- B-17 


[Example] 


Data 


At 
A2 
Aa 
A4 
Total 
Mean 


Bt 
24 
19 
39 
18 
100 
.25 


B2 
23 
40 
64 
58 
185 
46.25 


Ba 
25 
31 
53 
29 
138 
34.55 


Total 
72 
90 
105 
105 
423 


Mean 
24 
30 
52 
35 
35.25 


Factor 
Sum of squares 
Degree of 
Unbiased 
Unbiased 
freedom<!> 
variance V variance ratio F 


(A] 
SA= 1304.25 
3 
434.75 
5.37 


(B] 
Sa= 906.50 
2 
453.25 
5.60 


e 
Se = 4855.50 
6 
80.92 


Total 
ST = 2696.25 
11 


[Operation ] 


CLOAD 'VB 17\7 ]EllER] 


Input 
Display 
Note 
Input 
Display 
Note 


1 
SA 
1304.25 
11 
]ENTER] 
VE 
80.91666667 
2 
]ENTER I SB 
906.5 
12 
]ENTER] 
FA 
5.372811534· 


3 
]ENTER] 
SE 
485.5 
13 
]ENTER] 
FB 
5.601441812 
4 
]ENTER] ST 
2696.25 
14 


5 
]ENTER] 
DF A 
3 
15 


6 
]ENTER] DF B 
2 
16 


7 
]ENTER] 
DF E 
6 
17 


8 
[N@ DF T 
ll 
18 


9 
]ENTER] VA 
434.75 
19 


10 
]ENTER] 
VB 
453.25 
20 
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Title 
PROGRAM NO. 


2-WAY LAYOUT 
P4-B-17 


Memory content 


A 1 
j' ¢E 


B 2 
b,¢B 


c 3 
a,¢A 
10: "B":INPUT "A,B?",C,B 


D 4 
T;• 'SE 
20: FOR A=STO 9+8 
30: A(A)=O:NEXT A 
E 5 
l:T 2; ' SA 
40: 1=1 
F 6 
T•, CT 
SO: D=O: FOR A=10TO 9+8 
60: INPUT "X=";H 


G 7 
l:x2ij , ST 
70: A(A)=A(A)+H:D=D+H 


H 8 
Xij, l:T 2•j, Sa 
80: G=G+H*H 
90: NEXT A 


I 
9 
i, ¢T 
100: E=E+D*D:F=F+D 


..J 10 
110: IF I<>CLET I=I+1:GOTO so 


T•l 'VA 
120: H=O 


K 11 
T•2 ' VB 
130: FOR A=10TO 9+B 


L 12 
140: H=H+A(A)*A(A) 


T·3' VE 
1SO: NEXT A 


M 13 
T•4 ' 
160: F=F*F/8/C:G=G-F:E=E/8-F:H=H/C-F 


N 
170: I=C*B-1:C=C-1:B=B-1 
14 
( 
180: D=G-E-H:A=I-8-C:J=E/C:K=H/B:L=D/A 


0 15 
190: PRINT "SJl.",E:PRINT "SB",H:PRINT "SE",D 
200: PRINT "ST 
11 ,G:PRINT II D F A",C:PRINT II f) F B 
p 16 
II ,s 


Q 17 
210: PRINT "DF E 
11 ,A:PRINT 
11 DF T 
11 ,I:PRINT· "VA 


II ,J 
R 18 
220: PRINT "VB 
11 ,K:PRINT "VE 
11 
, L: PR HJT 
11 FA 
11 ,J/ 


s 19 
L 


230: PR:INT 
II FB 11 ,K/L: END 
T 20 
400 


u 21 
v 22 
w 23 
X 24 
y 25 
z 26 
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SHARP 


Title 


PROGRAM NO. 


2-WAY LAYOUT (WITH REPETITIONS) 
P4-B-18 


[ Formula] 


This program calculates analysis of 
experimental data of 2-way layout 
having repetitions. 
Original table 


Number of replications, n 


Level of factor of A, a 
At 
A2 
A a 


Level of factor of B, b (b$'33) 
X111 
X211 ••• •••••• ••• ••• •••••• X au 


Find the sum of n times of repetition 
X112 
X212 ·•··•· ·••··· ••·•••··· Xa12 
from the original table, and make up 
Bt 


T-table. 
···········=·········· 


That is, 
X11n 
Xz1n ••••••••••••••••••••• Xa1n 


n 
Tij = L: 
X ij k 
X121 
X221 ••• ·•• ••• ••••••••• ••• X a 21 
k=l 
Thereafter, calculate by using the 
X122 
X222 •••••• ••••••••••••••• Xa22 
B2 
original table and T -table. 
······················ 


Correction term 
CT = (L:xijk )'Yabn 
X12n 
Xzzn ••••••••••••••••••·•• Xazn 
Total variation 
ST =L:x2ijk-CT 
···········=·········· 


Among class 
SAB =L:T2ii/n-CT 
variation 


Error variation 
SE = ST-SAB 
X1h1 
X2b:t ••• •••••• ·•• ••• ·••••• Xabt 


b 
X1h2 
X 2hz •••••• ••• •••••• •••••• X ab2 
A variation 
SA =.I:( L: Tij ) 2/b n-CT 
j=l 
Bb 
.......... ......... 
a 
B variation 
Ss =.I:( L: Tij)'/an-CT 
i=l 
Xtbn 
X2bn ••• •••••• • 
•••••• ••• Xabn 
Interaction 
SAXB = SAs-SA-Ss 


Input 
Display 
Note 
Input 
Display 
Note 


1 
I SHFT[ 
@ 
N,A,B 
11 
13 
[ENTER[ X(I JK)= 


2 
2 [ENTER[ ? 
12 
13.5[ENTER[ 
1/ 


3 
4 [ENTER! ? 
13 
13.5[EITER[ 
1/ 


4 
3 [ENTER[ N=2 A=4 B=3 OK? 
14 
12 [ENTER[ 
II 


5 
[ENTER[ X(I JK)= 
15 
13 
[ENTER[ 
II 


6 
14 [ENTER[ 
II 
16 
13 
[ENTER[ 
II 


7 
13.5[ENTER[ 
1/ 
17 
13.5[ENTER[ 
I/ 


8 
13 [ENTER[ 
II 
18 
13.5[ENTER[ 
II 


9 
13 [ENTER 
II 
19 
13.5[ENTER[ 
1/ 


10 
13.5 [illfiil 
1/ 
20 
11 
[ENTER[ 
II 
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SHARP 


Title 
I 


PROGRAM NO. 


2-WAY LAYOUT (WITH REPETITIONS) 
P4~B-18 


Find the degree of freedom 
of each variation. 
T-table 


tjn=abn-1 
A, 
A2 ..................... A a 


~AB= a b-1 


B, 
Tu 
T21 ····················· Tal 


~E = a b ( n-1) 
B2 
T,2 
T22 


~- ••••••••• 0 ••••••••• 
Ta2 


~A = a-1 
: 
: 
: 
..................... 


~B = b-1 


~AXB = (a-l)(b-1) 
Bb 
T1b 
T2b ..................... 
Tab 
Find the unbiased variance. 


VAs= SAB/~AB 
Variance analytical table 


VE = SE/~E 


VA = SA/~A 
Factor 
s 
~ 
v 
F 


VB = Ss/~B 
A 
SA 
~A 
VA 
FA 


VAXB = SAXB/~AXB 
B 
Ss 
~B 
VB 
FB 


AXB 
SAXB 
~AXB 
VA.XB 
FA.X:B 


Find the variance ratio. 
Among 
AAB 
~AB 
VAB 
FAB 
class 
FAB 
=VAB/VE 
E 
SE 
~E 
VE 
- 


FA 
= VA/VE 
Total 
s 
~ 
- 
- 


Fs 
= Vs/VE 


FAXB = VAXB/VE 


Summarize the data above into 
a variance analytical table. 


Input 
Display 
Note 
Input 
Display 
Note 


1 
12 [ENTER[ X(IJK) = 
11 
[ENTER) 
VA= 
1.624999887 
2 
12.5[ENTER[ 
II 
12 
[ENTER) 
FA= 
7. 799999459 
3 
13 [ENTER[ 
II 
13 
[ENTER] 
SB= 
5.395833 
4 
11.5 I ENTER I 
II 
14 
[ENTER] 
DF. B= 
2 


5 
12.5 ]ENTER] 
II 
15 
]ENTER[ 
VB= 
2.6979I65 


6 
1 I ]ENTER] 
II 
16 
[ENTER[ 
FB= 
I2.9499992 


7 
12 [ENTER] 
1/ 
17 
[ENTER] 
SA*B= 
2.68750034 


8 
13 [ENTER[ 
,, 
18 
[EllER] 
DF.A*B= 
6 


9 
I 3 [!!@ SA= 
4.87499966 
19 
[ENTER) 
VA*B= 
4.4 7916E--01 


10 
[ENTER[ DFA= 
3 
20 
[ENTER] 
FA*B= 
2. 150000272 
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SHARP 


Title 
PROGRAM NO. 


2-WAY LAYOUT (WITH REPETITIONS) 
P4-B-18 


[Example] 


When molding a synthetic resin, the operation was conven- 
A1 
Az 
A3 
A4 
tionally carried out at molding temperature of 80°C, poly- 
mer time of 4 minutes, and catalyst amount of 1%. But the 
14.0 
13.5 
13.5 
11.5 
strength is not sufficient under those conditions. So, it is 
B1 
desired to modify the job standard by varying the molding 
13.5 
13.5 
13.5 
12.5 


temperature and catalyst amount. 
13.0 
12.0 
11.0 
11.0 


Therefore, at different molding temperatures 80, 90, 100, 
Bz 
110°C (A1 , A2 , A3 , A4 ), and catalyst amounts 0.5, 1.0, 
13.0 
13.0 
12.0 
12.0 


1.5% (B 1 , B2 , B3 ), experiments were conducted under the 
13.5 
13.0 
12.5 
13.0 


conditions of 3 x 4 = 12 twice each, totaling 24 times. 
B3 
The results are summarized in the table shown on the 
13.0 
13.5 
13.0 
13.0 


right. Attempt to analyze the data. 


[ Operation ] 


CLOAD 
VB 18\7 
[ENTER) 


Input 
Display 
Note 
Input 
Display 
Note 


1 
[ENTER[ s = 
12.958333 
11 


2 
[ENTER] DF = 
11 
12 


3 
li!Tl!l V= 
1.178030273 
13 


4 
[li[~ F = 
5.654545311 
14 


5 
[ENTER[ SE= 
2.5 
15 


6 
[ilill] DF•E= 
12 
16 


7 
[liTER J VE= 
2.083331E-OI 
17 


8 
[NTER] ST= 
15.458333 
18 


9 
[ElliR] DF·T= 
23 
19 


10 
20 
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Title 
2-WAY LAYOUT (WITH REPETITIONS) 
l 
PROGRAM NO. 
P4-B-18 


Memory content 


A 1 
a 
"A":CLEAR 
10: 


B 2 
b 
zn. 
\..•. I:lPUT 
' 
1 ~!,A,su ,c,A,D 
30: PRHiT "L=" ;usrr;G "###";c;rr A=";A;" B-"· 
- , 
c 3 
n 
a;" 
OK?" 


D 4 
For input 
40: FOR F=1TO r.. 
50: FOR G=1TO 8 
E 5 
Index 
60: FOR H=1TO c 
F 6 
i 
70: INPUT "X<IJK)="iD 
80: L=D+L:J=J+D*D 
G 7 
j 
90: NEXT H 
H 8 
k 
100: Q=Q+L:P=P+l*L 
110: E=G+17:A(E)=A(E)+L:L=O 


I 
9 
CT 
120: NEXT G 


.J 10 
ST 
130: K=K+Q*Q 
140: I=I+Q:Q=O 
K 11 
SA 
150: NEXT F 


L 12 
160: FOR E=18 TO 17+8 


T~~A 
170: O=O+A(E)*A(E) 


M 13 
VA 
180: NEXT E 
190: I=I* I/ ( A*B*C) 
N 14 
FA 
200: J=J-I 


0 15 
Sa 
210: K=K/(B*C)-I 
220: 0=0/(A*C)-I 
p 16 
SAB 
230: P=P/C-I 


Q 17 
T;.~SE 
240: Q=J-P 
250: R=A*B*(C-1):S=Q/R 
R 18 
T.2~~E 
260: BEEP 2:USING :E=K:L=A-1:GOSUB 500 


s 19 
T.2~VE 
270: PRINT "SA=",K:PRINT "DF.A=",L:PRINT "VA 
=" ,r·l:PRINT "FA=" ,N 
T 20 
280: K=O,L=B-1:GOSUB 500 


u 21 
290: PR ItJT "SB=",K:PRINT "DF.B=",L:PRINT "VB 
=", i·1: PR H.JT "FB=" ,rJ 
v 22 
300: K=P-O-E:L=CA-1)*(0-1):GOSU5 500 


w 23 
310: PRINT "SP.*B=" ,K: PR HIT "DF.A*B=",L: 


X (I JK) 
PRHJT "VA*'C=" ,r1: PR HlT "FA*B=",i'J 


X 24 
320: K=P:L=A*G-1:GOSUO 500 
330: PRINT "S=" ,!(: PR IrJT "D F=" ,L: PR n;T "V=" ,r~ 
y 25 
: PR H~T "F=",~~J 


z 26 
340: K=Q :L=R :f·1=S 
350: Pf1INT 
II s E=", :(: PR I~ !T "DF.E=",L:PRINT "VE 
-" ,., "' 
360: K=J:L=A*tl*C-1 
370: PRIN1 "ST=",K:PRINT "DF.T=",L 
380: END 
500: t·1=K/ L: N=f.J/ S 
510: RETUiW 


681 
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SHARP 


Title 


PROGRAM NO. 
x- R CONTROL CHART, Pn CONTROL CHART 
P 4- B-19 


[ Formula] 


1. Find the control•limit of x-R control chart. 


2. Find the control limit of pn control chart. 


LCL = pn-3 /pn( 1-p) 


CL =pn 


UCL = pn+3V'iinC 1-p) 


[Example] 


1. x-R control chart 
2. pn control chart 


Group 
X1 
Xz 
X3 
Set No. 
I 
2 
3 
4 
5 
6 
7 
No. 
n=250 No. of 
1 
22.10 
23.75 
22.37 
defects 
18 
26 
16 
12 
31 
16 
24 


2 
21.17 
20.75 
20.82 


3 
20.52 
20.62 
21.25 


4 
20.98 
20.83 
21.73 


A2, D3, D4 constant table 


n 
Az 
D3 
D4 


2 
1.880 
0 
3.267 


3 
1.023 
0 
2.575 


4 
.729 
0 
2.282 


5 
.577 
0 
2. 115 


6 
.483 
0 
2.004 


7 
.419 
.076 
1. 924 


8 
.373 
.136 
1. 864 


9 
.337 
.184 
1. 816 


10 
.308 
.223 
1. 777 


Input 
Display 
Note 
Input 
Display 
Note 


1 
I SHFT I 
~ N,A2,D3,D4 
11 
ISH FT I 
~ 
LCL 
20..461225 
x 


2 
3 ]ENTER] ? 
12 
]ENTER] CL 
21.4075 
II 


3 
1.023 [ENTER] ? 
13 
[ENTER] UCL 
22.353775 
1/ 


4 
0 ]ENTER] ? 
14 
[ENTER] 
LCL 
0. 
R 


5 
2.575 ]ENTER] X= 
15 
]ENTE~I CL 
0.925 
II 


6 
22.10 [ENTER] X= 
16 
[ENTER] UCL 
2.881875 
1/ 


7 
23.75 [ENTER] X= 
17 


8 
22.37 I ENTER 1 X-=22.74 
18 


9 
R= 1.65 
19 


10 Repeat steps 6 to 8 thereafter 
20 
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SHARP 


Title 
x-R CONTROL CHART, Pn CONTROL CHART 1 
PROGRAM NO. 
P 4- B-19 


[ Operation ] 


CLOAD vB19v 
[ENTER[ 


'SHFT] ~ ······· x-R control chart, data input 


[SHFT] ~ ······· x-R control chart, result 


[lH FTl [g ······· pn control chart, data input 


l}Hil' [QJ 
······· pn control chart, result 


Input 
Display 
Note 
Input 
Display 
Note 


1 
[1IJFT; 
lQJ 
N= 
11 
~Til 
[QJ 
LCL 
7.43498117 


2 
250 ~h'illl RI= 
12 
[ENTER[ 
CL 
20.42857143 


3 
18 [ENill] PI 
7.2 
13 
[ENTEIII UCL 
33.422161669 


4 
I ENTER[ 
14 


5 
26 [E~IE_~ 
15 


6 
16 


7 Repeat thereafter 
17 


8 
1 8 


9 
19 


10 
20 
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Title 
x- R CONTROL CHART, Pn CONTROL CHART 
I PROGRAM NO. 


P4- B-19 


Memory content 


A 1 
j 


8 2 
max 
c 3 
mzn 
1 0: "A":R=O:H=O:I=O 
20: INPUT "N,A2,D3,D4",N,F,O,E 
D 4 
D3 
30: INPUT "X="iX:B=X:C=X:G=X 


E 5 
D4 
40: FOR A=2TO N 
50: INPUT "X="iX 


F 6 
Az 
60: IF X>BLET B=X 


G 7 
xi 
70: IF C>XLET C=X 


<:> n. G=G+X 
u '-'. 


H 8 
Xx;, x 
90: NEXT A 


I 
9 
i 
100: PRINT "X-=",G/N:PRINT "R=",B-C 
110: H=H+G:R=R+B-C:I=I+1:GOTO 30 


J 10 
120: "B":R=R/I:H=H/N/I:PAUSE "X" 


K 11 
130: PRINT "LCL",H-F*R:PRHJT "CL",H:PRINT "U 
CL",H+F*R 


L 12 
140: PAUSE "R":PRINT "LCL",D*R:PRINT "CL",R: 


M 13 
PRINT "UCL",E*R:END 
150: "C":P=O:INPUT "N="iZ 


N 14 
n 
160: FOR A=OTO 999 
170: INPUT "RI="iR:Y=R/Z:PRINT "PI",Y*E2 
0 15 
180: P=P+Y:NEXT A 
p 16 
190: "D": P=P I A: N=P* Z: S:=3* [< N-N*P) 
200: PRINT "LCL",N-S:PRINT "CL",N:PRINT "UCL 


Q 17 
" ,N+S:END 


R 18 
l:'R;, R 
400 


s 19 


T 20 
u 21 
v 22 
w 23 
X 24 
X ij 


y 25 
z 26 


-87- 


SHARP 


Title 
PROGRAM NO. 


L 8 ORTHOGONAL ARRAY TABLE 
P4 -B-20 


[ Formula] 
[Example] 
~ 


1 
2 
3 
4 
5 
6 
7 
Data 
Example 


1 
1 
1 
1 
1 
1 
1 
1 
x1 
9 


2 
1 
1 
1 
2 
2 
2 
2 
X2 
12 


3 
1 
2 
2 
1 
1 
2 
2 
X a 
8 


4 
1 
2 
2 
2 
2 
1 
1 
x4 
15 


5 
2 
1 
2 
1 
2 
1 
2 
Xs 
16 


6 
2 
1 
2 
2 
1 
2 
1 
Xe 
20 


7 
2 
2 
1 
1 
2 
2 
1 
x1 
13 


8 
2 
2 
1 
2 
1 
1 
2 
Xs 
13 


This program performs experiments of two levels according to the orthogonal table above 
and analyzes the data. 


1 
sl = 8 [(sum oflevell)- (sum oflevel2)] 2 


= _!_ (X1 + X2 + X3 + X4 - Xs - x6 - X1 - Xa)2 
8 


cf>t = 1, V1 =Stlcf>t 


Compute similarly in row 2 and thereafter, and find the totalS T . 


[ Operation ] 


CLOAD vB20v 
[EllER[ 


Input 
Display 
Note 
Input 
Display 


1 
I SHFT[ 
~ DATA 
11 
IilitH] S5= 4.5 
2 
[ENTER[ X= 
12 
[ENTER[ S6= 0 


3 
9 [EITERI X= 
13 
[EllER[ S7= 8 


4 
14 
[ENTER[ ST= 103.5 


5 
15 


6 Repeat thereafter 
16 


7 
13 [ENTER/ s 1 = 40.5 
17 


8 
[ENTER[ S2= 8 
18 


9 
[ENTER[ S3= 18 
19 


10 
[ENTER[ S4= 24.5 
20 


-88- 


Note 


ORTHOGONAL ARRAY TABLE 


PROGRAM NO. 
Title 
Ls 
P 4 -B-20 


Memory content 


A 1 


8 2 
X1 
c 3 
x2 
10: 
II P.'' : T=O: X=O 
20: PRINT "DATA" 


D 4 
XJ 
30: FOR A=2TO 9 


E 
40: INPUT "X=";A(A) 
5 
x. 
50: X=X+A( A) 
F 6 
x5 
60: NEXT A 


G 
70: S=C+D+ E: Z$ ="S1 =":GO SUB 500 
7 
x6 
80: S=C+ F+G: Z$="S2=": GOSUB 500 


H 8 
x7 
90: S=C+H+I:Z$="S3=":GOSUB 500 
100: S=D+F+H:Z$="S4=":GOSUB 500 
I 
9 
Xs 
110: S=G+D+I:Z$="S5=":GOSUB 500 


J 10 
120: S= E+ F+ I: Z$ ="S6=": GO SUS 500 
130: S=E+G+H:Z$="S7=":GOSU8 500 


K 11 
140: PRINT "ST=",T:END 


L 12 
500: S=2*(S+B)-X:S=S*S/8 
510: T=T+S:PRINT zs,s 


M 13 
520: RETURN 
N 14 
283 


0 15 
p 16 


Q 17 


R 18 
s 19 
S; 


T 20 
ST 
u 21 
v 22 
w 23 
X 24 
Sx; 


y 25 
z 26 


-89- 


SHARP 


I 


PROGRAM NO. 
Title 
L16 ORTHOGONAL ARRAY TABLE 
P4-B-21 


[ Formula] 


This program analyzes the data of experiment conducted according to L16 (2 15 ) orthogonal 
array table. 
F value is not outputted, which should be calculated manually. 


s1 = - 1- 
[ (sum of data in level 2) -(sum of data in level 1) l 2 
16 


Calculate similarly until S 15 . 
s 
¢ 
v 


¢1-¢1s=l 


I 
s1 
I 
V1 
¢ = 15 
2 
Sz 
I 
Vz 


v~= s~ 
3 
s3 
1 
v3 


V1s = S1s 


Summarize the data above into a 
15 
s 15 
1 
V1s 


variance analytical table. 
Total 
s 
15 


[ Example] 


In order to increase the yield of a certain reaction process, experiments were conducted by L16 
(25 ) with five factors -reaction time (A), temperature (B), quantity of component (C), pres'sure 
(D), and apparatus (E) -being varied in two levels. The effects intended to know are the main 
effect and interaction of two factors, namely, A x B. A x C, B x C, A x D, B x D. Therefore, 
A, B, C, D, and E were allotted respectively to 1, 2, 8, 15, and 7, and experiments were done 16 
times by randomizing. As a result, the data shown in the table below was obtained. 
Attempt to analyze the data. 


Input 
Display 
Note 
Input 
Display 
Note 


1 
ISH FT I 
~ ? 
11 
94.9 [ENTER[ ? 
2 
78.3 [ENTER[ ? 
12 
92.8 [EITEl[ ? 
3 
85.7 [ENTER[ ? 
13 
94.7 [EllER[ ? 
4 
77.8 [ENTER] ? 
14 
82.3 [EllER] ? 
5 
86 
[ENTER[ ? 
15 
90 
[ENTER] ? 
6 
89.1 [ENTER[ ? 
16 
81.7 [ENTER[ ? 


7 
90.5 [ENTER] ? 
17 
90.2 :mER] 
I 
60.84000 
1 


8 
89.2 [ENTER[ ? 
18 
[ENTER] 
2 
0.16000 
I 


9 
91.4 [ENTER[ ? 
19 
[ENTER[ 3 
249.64000 
I 


10 
92.6 lEITER[ ? 
20 
[ENTER[ 
4 
0.01000 
I 


-90- 


SHARP 


Title 
L16 ORTHOGONAL ARRAY TABLE 
I PROGRAM NO. 


P 4- B- 21 


1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
Data 


I 
I 
1 
I 
I 
1 
1 
1 
I 
1 
1 
I 
1 
1 
I 
78.3 


1 
I 
I 
I 
I 
1 
1 
2 
2 
2 
2 
2 
2 
2 
2 
85.7 


I 
I 
I 
2 
2 
2 
2 
I 
I 
1 
I 
2 
2 
2 
2 
77.8 


1 
I 
1 
2 
2 
2 
2 
2 
2 
2 
2 
I 
1 
I 
I 
86.0 


1 
2 
2 
1 
1 
2 
2 
1 
I 
2 
2 
1 
1 
2 
2 
89.1 


1 
2 
2 
I 
I 
2 
2 
2 
2 
I 
I 
2 
2 
1 
I 
90.5 


I 
2 
2 
2 
2 
I 
1 
1 
1 
2 
2 
2 
2 
1 
1 
89.2 


I 
2 
2 
2 
2 
I 
1 
2 
2 
I 
1 
I 
1 
2 
2 
91.4 


2 
1 
2 
1 
2 
1 
2 
I 
2 
1 
2 
I 
2 
1 
2 
92.6 


2 
1 
2 
1 
2 
1 
2 
2 
1 
2 
1 
2 
1 
2 
1 
94.9 


2 
I 
2 
2 
I 
2 
1 
1 
2 
I 
2 
2 
1 
2 
1 
92.8 


2 
1 
2 
2 
I 
2 
I 
2 
I 
2 
1 
I 
2 
I 
2 
94.7 


2 
2 
1 
1 
2 
2 
1 
1 
2 
2 
1 
1 
2 
2 
1 
82.3 


2 
2 
1 
1 
2 
2 
1 
2 
1 
1 
2 
2 
1 
1 
2 
90.0 


2 
2 
1 
2 
1 
1 
2 
1 
2 
2 
1 
2 
1 
I 
2 
81.7 


2 
2 
1 
2 
1 
1 
2 
2 
1 
1 
2 
1 
2 
2 
1 
90.2 


A 
B 


~ 
E 
c 


~ 
~ 
~ 
~ 
D 
A 
A 
B 
B 
A 
Factor 
X 
X 
X 
X 
X 
alloted 
B 
c 
-S 
Q 
Q 
._,. 
.._., 


[ Operation ] 


CLOAD VB 2 1 v [mER I 


Input 
Display 
Note 
Input 
Display 
Note 


1 
(ENTER I 
5 
0.09000 
1 
11 
lill!!l 15 
0.09000 
I 
2 
[EITERj 
6 
0.04000 
1 
12 
(ENTER( 
T 
445.56 
3 
[ENTERJ 
7 
0.16000 
I 
13 


4 
[ENTER( 
8 
98.01000 
1 
14 


5 
[ENTERj 
9 
0.09000 
1 
15 


6 
(EITERI 10 
0.00000 
1 
16 


J 
[£ITER( 11 
36.00000 
1 
17 


B 
[ENTER( 12 
0.25000 
I 
18 


9 
[EllER( 13 
0.09000 
1 
19 


10 
[ENTERj 14 
0.09000 
I 
20 


-91- 


Title 


PROGRAM NO. 


L16 ORTHOGONAL ARRAY TABLE 
P4-B-21 


Memory content 


A 1 
~ 


B 2 
c 3 
1 0: "A" :AC39)=0 
20: FOR A(35)=1TO 16 
D 4 
30: INPUT ACAC35)) 


E 5 
40: AC39)=AC39)+ACAC35)) 
50: NEXT AC35) 


F 6 
60: AC17)=3333:AC18)=330033:AC19)=33000033 


G 7 
70: AC20)=3030303:AC21)=30300303:A(22)=3003 
3003 


H 8 
Data 
80: AC23)=3303003:AC24)=11111111:A(25)=2222 
I 
9 
1111 


90: AC26)=22112211:AC27)=11222211:AC28)=212 
,J 10 
12121 


K 11 
100: AC29)=12122121 :A(30)=12211221 :A(31)=211 
21221 
l 
12 
110: FOR M37)=17TO 31 


M 13 
120: AC35)=A(A(37)):GOSUB 500 
130: NEXT AC37) 


N 14 
140: A(38)=0:A(2)=1 


0 
150: BEEP 2:FOR AC34)=1TO 15 
15 
160: A(39)=A(34)+16:A(1)=A(A(39)):A(38)=A(1) 
p 16 
--' 
+A(38) 


Q 
170: PRINT USING "#t:#";A(3l}) ;uSING "tttlfttftf#f!t! 


17 
.... 
.tttt#tttt";AC1) ;usinG "tu.•ttttttf!";AC2) 


R 18 
175: NEXT AC34) 
180: USING :PR HJT "T" ,A(38) 
s 19 
190: END 


T 20 
500: AC34)=0 
510: FOR IH38) =1TO 8 
u 21 
520: A(36)=AC35):A(35)=INT ( • 1 *A ( 35) ) :A (36) = 
v 22 
>-Difference, S i 
AC36)-10*AC35) 
530: A(33)=2*A(38):AC32)=AC33)-1 
w 23 
5 40: AC34) =( AC36) -ItJT (A(36)*.5)*2)*A(A(32)) 


X 24 
+H!T (A(36)*.5)*A(A(33))+A(34) 


550: !!EXT AC32) 


y 25 
560: AC33)=AC39)-2*A(34) :ACAC37) )=A(38)*A(38 


z 26 
) /16 


~31 
570: RETURN 
34 
Sum of one component 
740 


35 
Orthogonal table 


36 One digit component 


37 
Index 


38 
i 


39 
Sum 


-92- 


SHARP 


Title 
SPEARMAN RANK ORDER CORRELATION 
PROGRAM NO. 
COEFFICIENT 
p4-B-22 


[Formula] 


Regarding the rank order just like measured values, this program is intended to find the 
correlation coefficient. 


rs = 1- 6..E(x;-y;) 2 


n 3-n 


In the equation above, xi and Yi are rank orders, and the identical rank orders should be 
settled to a mean value. For instance, if the third rank is occupied by two samples, the mean 
of 3 and 4, namely 3.5, is taken; if there are three samples in the same rank, the mean of 3, 4, 
5, namely 4, is taken. 


The test should utilize the-fact that 


rs ./n=2 
t = -/1-rs 2 


conforms to t-distribution of n-2 degree of freedom. 


The critical region should be determined by the right side test. 


[Example] 


I 


x, I 


5 


I 


3 


I 


4 


I 


1 


I 


8 


I 


9 
I 


2 


I 


7 
I 


6 
I 
x. 
5 
4 
1 
3 
6 
9 
2 
8"' 
7 


[ Operation ] 


CLOAD '7B22'7 
[EllER[ 


Input 
Display 
Note 
Input 
Display 
Note 


1 
I SHFT I 
~ X= 
11 
!Siifr J 
~ 
R= 
8.33333 IE-01 


2 
5 [ENTER[ Y= 
12 
[ENTER[ T= 
3.988620175 


3 
5 [EllER[ X= 
13 
[ENTER[ DF= 
7. 


4 
14 


5 Repeat thereafter 
15 


6 
16 


7 
17 


8 
18 


9 
19 


10 
20 
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Title 
SPEARMAN RANK ORDER CORRELATION 
PROGRAM NO. 
COEFFICIENT 
P4-B-22 


Memory content 


A 1 


8 
2 
c 3 


D 4 
10: "A":N=Q,S=O 
20: INPUT "X=";X 
E 
5 
30: INPUT "Y=";y 


F 6 
40: Z=X-Y:S=S+Z*Z 
50: N=N+1:GOTO 20 


G 7 
60: "B": R=1-6*S/ <N* (N1,N-1)) 


H 8 
70: N=N-2 
80: PRINT "R=",R 
I 
9 
90: PRINT "T=",R*f(N/(1-R*R)) 


"' 


10 
100: PRINT "DF=",N 
110: END 
K 11 
144 
L 12 


M 13 


N 14 
n 


0 15 
p 16 


Q 17 
R 18 
rs 
s 19 
.I:(x;-y; )2 
T 20 
u 21 
v 22 
w 23 


X 24 
Xi 
y 25 
Yi 
z 26 
x;-y; 


-94- 


SHARP 


Title 
1 


PROGRAM NO. 


ANGLE CALCULATIONS 
P4- C- I 


[ Formula] 


Inputting angles in degrees, minutes, seconds, the angles are added, subtracted, multiplied, and 
divided. This program also multiplies and divides by multiples and divisors of integer. In this 
case, the angle is expressed in (degrees. minutes-seconds). 
In the case of subtraction, inputs are to be entered in negative numerals. The limit of digits is up 
to 4 digits of the integer part in the total angle expression, and up to 2 digits in multiples and 
divisors. 
The second unit in display is rounded off, but all the digits are stored in the calculator. 


[ Example] 


123°45'12 
11+54°32' 10" -30°20' 10 
11 =147°57'12 11 


I 4 7° 57' 1 2 11 -;- 3 = 4 9 o I 9104 11 


X 3 =I 47°57'12 11 


[ Operation ] 
c LOAD vc 1 7 
[EITER[ 


1AJ program: 
For angle totaling 


~program: For angle division 


19 program: 
For angle multiplication 


Input 
Display 
Note 
Input 
Display 
Note 


1 
ISH FT i 
lA! 
A= 
11 
[llifl 
19 
TOTAL= 49.1904 


2 123.4512 [ENTER[ A= 123.4512 
12 
[ENTER I X 


3 54.3210 
[ENTER[ A= 54.3210 
13 
3 [ENTER[ X3 


4 -30.2010 [ENTER[ A= -30.2010 
14 
49 .1904X 3= 147.5712 


5 
A= 
15 


6 
I SHFT I 
~ TOTAL= 147.5712 
16 


7 
[ENTER I 
/ 
17 


8 
3 [ENTER[ 
/ 
3 
18 


9 
147 .5712/3=49.1904 
19 


10 
20 


-95- 


PROGRAM NO. 
Title 
ANGLE CALCULATIONS 
P4-C-1 


Memory content 


A 1 
(} 


8 
2 
{) 
0 Ill 
c 3 
TOTAL 
10: "A":T=O:DEGREE 


D 4 
N 
20: INPUT "A= ";A 
30: T=T+DEG A 
E 5 
40: GOTO 20 


F 6 
50: "B":B=T:GOSUB 500 


G 
60: GOSUB 600 
7 
70: C=B:INPUT "/ ";D 


H 8 
80: T=T/D:B=T:GOSUB 500 
90: PRINT C;";";USING "###";D;":";USING "fl# 
I 
9 
IU/.###ti";B 


..J 10 
100: END 
110: "C":B=T:GOSUB 500 
K 11 
120: GOSUB 600 


L 12 
130: C=B:INPUT "X ";D 
140: T=T*D:B=T:GOSUB 500 
M 13 
150: PRINT USING "tlflfltl.tl##tl";c;"X";USING "## 


N 14 
#";D;"=";USING "#####.####";B 
160: END 
0 
15 
500: B=SGN B*INT ABS (OMS (B+SGN 8*.00014)*( 


p 16 
4)/1£4 
510: RETURN 
Q 17 
600: PRINT USING "#####.fi#II#";"TOTAL=",B 


R 18 
610: RETURN 


308 
s 19 
T 20 
TOTAL 


u 21 
v 22 
w 23 


X 24 
y 25 
z 26 


-96- 


SHARP 


Title 


PROGRAM NO. 
OPEN AND RADIATE TRAVERSE 
P4- C- 2 


[ Formula] 


.x 


A) Open traverse 
,x 
I 
Input direction angles at starting point and 
I 
I 
I 
coordinates, then included angle at each point 
I 
~:~ 


and distance, and find the direction angle and 
~2 
I 
coordinates. 
I 
m: 
12 
B) Radiate traverse 
' 
"""--..!!!. 
(XA 
® 
X 


YA 
• 
I 
X~, Y1 
Direction angle: ai =ai-I +f3i+180°-(360°) 
I 
a1 


~I 
•(i) 
Coordinates: 
Xi =Xi-I +I i cosai 
,.-{3z I 
l1 
a2 


Yi =Yi-1+1 i sinai 
.---!. 
--x2, Y2 
~N:' 


I 
/)3 2 
(2) 


[Example] 
(Open traverse) 
xA: 
YA 
1 
lJ 
I 
I 


~o· 2<>' 3o· 
25<>' s· ;S\ 


I 
I 


I 
'""" w 


I 


I 
oo·1o' 10''\ 
: 71. 234m 
' 
\'(P~ 
~ 
~- 


X= 100 
XI= 143.1825 
X 2= 130.0806 
Y= 100 
y 1 = 125.4477 
Y z= 195.4664 


(Radiate traverse) 
X 1 = 245.2350 m 


I 
• 
Y1 = 221.5894m 


[ Operation ] 
11 o· zo' 30"; 


[®~I 
95"10'20" 
50. 123m 
c LOAD vc 2 \7 
Xz= 241.7746m 


[AJ program: 
Open traverse 
71. 234m 
Y z= 257 .6988m 


123"45'12" 


181 program: 
Radiate traverse 
X=200m 
Y=200m 


NOTE) Coordinates are expressed by rounding off the 5th decimal. 


Input 
Display 
Note 
Input 
Display 
Note 


1 [sHFTj 
~J 
OPEN 
11 
I_SH FT 1, 
~ RADIATE 


2 (TA) II0.2030[ENTER[ TA = 110.2030 
12 ( TA) 110.2030 lffif!J TA = 110.2030 


3 (XA)IOO 
~00] XA = 100 
13 (XA)200 
[ENTER[ XA= 200 


4 (YA)IOO [ijillj YA= 100 
14 (YA)200 [ENTER[ YA= 200 


5 (BJlDO.IOIO@EI B = 100.1010 
15 (B1)95.!020 [ENTER] B = 95.1020 


6 d 1)50.1231filEfu L =50 .123 
16 ( !1 )50.123[ENTER[ L = 50.123 


7 
A= 30.3040 
C a) 
17 
A= 25.3050 


8 
[ill[RI 143.1825 
125.4477 
(X.Y) 
18 
[ENTER[ 245.2350 
221.5894 


9 
lillE!J Repeat from step 5 on. 
19 
[ENTER[ Repeat from step 15 on. 


10 
20 


-97- 


Title 
OPEN AND 
PROGRAM NO. 
RADIATE TRAVERSE 
P4- C-2 


Memory content 


A 1 
TAO/II 


8 
2 
XA 
c 3 
YA 
1 0: "A":PAUSE "OPEN":I=O:GOTO 30 
20: "B":PAUSE "RADIATE":I=1 
D 4 
(3 
30: DEGREE :INPUT "TA= ";A,"XA= ";B,"YA= " . 
, 


E 5 
l 
c 


40: INPUT "B= ";D,"L= ";E 


F 6 
ai 
SO: F=DEG A+DEG 0+180 


G 7 
X· 
60: IF 
D~1S F>=360LET F=DEG < or,;s F-360): 
I 
GOTO 60 


H 8 
Y· 
I 
70: G=B+E*COS F:H=C+E*SIN F 


I 
9 
Discriminant 
80: F=INT ( Dr·1S (F+.00014)*E4)/(4 
90: PRINT USING "#####tt#.###ti";"A=",F 
J 10 
100: PRINT G,H 
K 11 
110: IF I=OLET A=F:B=G:C=H 
120: GOTO 40 


L 12 
237 


M 13 


N 14 


0 
15 
p 16 


Q 17 
R 18 
s 19 
T 20 
u 21 
v 22 
w 23 


X 24 
y 25 
z 26 


-98- 


SHARP 


Title 
PROGRAM NO. 
CLOSED AND FIXED TRAVERSE (COMPASS RULE) P4- C-3 


[ Formula] 


X 


I 
After inputting the difference in coordinates, feed the 
I 
TA 
I 


l 4 


I 
l 3 
included angle (corrected) at each point and distance, 
and find the error of closure in latitude and departure, 


I 
{34 
{33 
sum of distance, and accuracy. Also, using the result of 
XA ' 
{Jl 


YA 
fJz 


l 2 
the calculation of error of closure, this program distributes 
l 1 
the error of coordinates according to the compass rule. 


Error of closure in latitude 
2;/':,X; =EX 
Error of closure in departure 
2;/'::, y I = EY 
Sum of distance 
2: l j 
Accuracy 
2:1;/./ (2:/'::,X;)z+ (2;/':,Y;)Z 


Corrected total latitude 
X, 
l j 
=X -1 +6X· +--EX 


I 
I 
_E / j 


Corrected total departure 
l . 
Y · =Y -1 +6Y · +--'- EY 


I 
I 
I 
_E / j 


[ Example] (Closed traverse) I 230° 


K:>"<$" 
9s. 5"' ® 
Error of closure in latitude 
5.968 m 


~~~~· 
I 19°24' 
Error of closure in departure 7.542m 
6X=Om 
60°10 1 10" 
6Y=Om 
125°5'3 \,1'" 55°20 '20" 
Accuracy 
39 


ss.,2Brn 
,r;:,<or;:, 


CD 


Included angle 
Distance 
Directim~mgle Total latitude Total 
departure 
Sum of 


230° 
Om 
Om 
distance 376.129 


60°10 110" 
85.123m 
110°10'10" -30.701 
78.196 


125° 5'30" 
105.05 
55°15'40" 
27.494 
162.416 


55°20'20" 
95.5 
290°36' 
59.579 
71.107 


!19°24 1 
90.456 
230° 
0 
0 


[ Operation ] 
c LOAD vc 3 \7 [EllER] 


Input 
Display 
Note 
Input 
Display 
Note 


1 
ISH FT I 
~ 
11 (B 3)55.202 [llill] B = 55.202 


2 (TA)230 
[ENTER I TA = 230 
12 (l 3)95 .5 [ENTER[ L = 95.5 


3 (6X) 0 
[ENTER[ DX= 0 
XA-XB 
13 
[ENTER[ A= 
290.3600 


4 (6 Y) 0 
[ENTER[ DY= 0 
YA-YB 
14 (B 4 ) 119.24 [ENTER! B = 119.24 


5 (B 1 )60 .1010 [ENTER[ B = 60.1010 
15 (l 4)90 .456 [ENTER[ L = 90.456 


6 (1 1)85.!23 [ENTERI L = 85.123 
16 
A= 
230.0000 


7 
[ENTER[ A= 
110.1010 (a:) 
17 
L~ ~ EX= 
5.9680 


8 (B,)J25.0530 [ENTER[ B = 125.0530 
18 
[ENTER[ EY= 
7.5416 


9 (/ 2) 105.05 [ENTER[ L = 105.05 
19 
[ENTER[ TL = 
376.1290 


10 
[ENTER I A= 
55.1540 
20 
lffi® kCCURACY = 
39 
-99- 


SHARP 


PROGRAM NO. 
Title 
CLOSED AND FIXED TRAVERSE (COMPASS RULE) 
P4- C-3 


~ program: 
For traverse starting 


~ program: 
For error calculation 


(9 program: 
For coordinates output 


(Fixed traverse) 
XB=59.579 


I YB=71 .107 


TB~ 220° 


95.5 


I 
I 19°24 1 


I 
55°20'20" 
TA=230° 
XA=O 
60°10'10" 
YA=O 
125°5 13 II 
105.05 


85.123 


In this case, input as follows: 
EX = 4.5330 


L::.X = XA -XB =- 59.579 
EY = 5.7279 


6. Y= YA-YB = -71.107 
TL = 285.673 


l n =0 
ACCURACY = 39 


Included angle 
Distance 
Direction 
1 
ang e Total latitude Tota~ 
departure 


230° 
Om 
Om 
60°10'10" 
85. 123m 
Jl0°10 
1 10" -30.7009 
78.1962 


125° 5'30" 
105.05 
55°15'40" 
27.4935 
162.4155 


55°20'20" 
95.5 
290°36' 
59.5790 
71.1069 
119°24' 
0 
230° 


NOTES) • To round off the coordinates, the 5th decimal is discarded. 


• If the accuracy is infinite ( oo ), it results in an error. But the operation can 
be progressed to a next step after pressing CL key. 


• There is not limit to the number of measure points. Each piece of data, 
however, should be inputted twice correctly. 


Input 
Display 
Note 
Input 
Display 
Note 


1 
l SHFT, 
(9 
(Example of 11 ( l 3)95. 5 ]ENTER] L = 95 .5 
closure) 
2 (XA) 0 
]ENTER] XA= 0 
12 
[ENTER] 59.5792 
71.1070 


3 (YA) 0 
]ENTER] YA= 0 
13 (BJ 119. 24]ENTER] B=119.24 


4 (B~60 .1 0 I O]ENTER] B = 60.1010 
14 ( l J90. 456]ENTER] L = 90.456 


5 (l ~85. 123]ENTER] L = 85.123 
15 
-0.0000 
-0.0000 


6 
]ENTER] -30.7008 
78.1962 
(X ' y) 
16 


7 (B~ 125.0530 [ENTER] B = 125 .0530 
17 


8 (l ~ 105. 05 [ENTER L= 105.05 
18 


9 
]ENTER] 27.4937 
162.4155 
19 


1 0 (B~55. 202 [ijjfR] B= 55.202 
20 
-100- 


Title 
I 


PROGRAM NO. 
CLOSED AND FIXED TRAVERSE (COMPASS RULE) 
P4-C-3 


Memory content 
A 1 
TA 


B 2 
6.X 
XA 
c 3 
6.Y 
YA 
10: "A" :DEGREE :D=O 
20: INPUT "TA= ";A,"DX= ";B,"DY= ";C:G=A 


D 4 
Sl 
30: GO SUB 500 
40: PRINT USING "####tltlf:l.f:ltlfi#";"A=",G:GOTO 


E 5 
{3 
30 


F 6 
l 
50: "B":PRINT "EX=",B 
60: PRINT "EY=",C 


G 7 
a 
70: PRINT "TL=",D 


H 8 
eY 
80: H=-8/D:I=-C/D 
90: PRINT USING "##########";"ACCURACY=",1//(H 
I 9 
eX 
*H+I*D 


J 10 
ACCURACY 
100: END 
110: "C":G=A:INPUT "XA= ";B,"YA= ";C 


K 11 
X 
120: GOSUB 500 


L 12 
y 
130: B=B+H*F:C=C+I*F 
140: PRINT USING "ff#t!f.l##f:l.#tf##";B,C 


M 13 
v 
150: GOTO 120 


N 14 
500: INPUT "8= ";E,"L= ";F 
510: D=D+F:G=DEG G+DEG E+180 
0 15 
520: IF OMS G>=360LET G=DEG ( Df·1S G-360): 


p 16 
GOTO 520 
530: B=B+F•COS G:C=C+F*SIN G 
Q 17 
540: G=INT < or~s <G+.00014)*l4)/l4 


R 
550: RETURN 
18 
378 
s 19 


T 20 
u 21 
v 22 
w 23 


X 24 
y 25 
z 26 


-101- 


1 


2 


3 


4 


5 


6 


7 


8 


9 


SHARP 


Title 
INVERSE CALCULATIONS OF OPEN AND 
RADIATE TRAVERSE 
I 


PROGRAM NO. 
p4- C-4 


[ Formula] 


Giving coordinates successively, find the distance between two points, direction angle, and 
included angle. 


(A) Open traverse 
(B) Radiate traverse 


X 


[Example] 


[ Operation ] 


C LOAD 
\7 C 4 \7 
[EITER[ 
NOTE) Distance is expressed by rounding off the 5th 
decimal. 


~ program: 


~ program: 
Inverse calculation of open traverse 
Inverse calculation of radiate traverse 


Input 
Display 
Note 
Input 


ISH FT I 
~ OPEN 
11 


(X,) 2 
[EITEl[ X,= 2 
12 
[EllER[ 


(Y ,) 
1 
[EllER[ Y1 = 1 
13 
[EllER[ 
(Xz) 
4 
[EllER[ X= 4 
14 
[EllER[ 


(Y z) 
4 
[EllER[ y = 4 
15 


A =56 .1836 
16 
OOIJ 
~ 


[EllER[ L = 3.6055 
17 


[EIRR[ 
18 
(X3) 
3 
[EllER[ X= 3 
19 


Display 
Note 


B = 240.1518 
A= 116.3354 


L = 2.2360 


Repeat from step 9 on. 


RADIATE 
Calculate radiate traverse 
similarly therafter. 


10 (Y 3) 
6 
[EllER[ y = 6 
20 


-102- 


Title 
INVERSE CALCULATIONS OF OPEN AND 
PROGRAM NO. 
RADIATE TRAVERSE 
P4- C-4 


Memory content 
A 1 
X;-1 
B 2 
Y;-1 
c 3 
X; 


D 4 
Y; 
10: "A":PAUSE "OPEN":L=1:GOTO 30 
20: "B":PAUSE "RADIATE":L=O 


E 5 
6X 
30: DEGREE :K=O:INPUT "X1= ";A,"Y1= ";B 


F 6 
40: INPUT "X= ";C,"Y= ";o 
6Y 
SO: E=C-A: F=D-8 
G 7 
r 
60: G=[(E*E+F*F) 


H 8 
{)i 
70: H=ACS (E/G) :IF F<OLET H=360-H 
80: IF K=OLET K=1:I=H:A=C:B=D:GOTO 130 
I 
9 
(} i-1 
90: J=OMS (H-I+540) 


J 10 
{3 
100: J=J-INT (J/360)*360 
110: M=J:GOSUB 500 


K 11 
Discriminant (1st time) 
120: PRINT "B=" ,~1 
130: IF L=OGOTO 150 


L 12 
Discriminant 2 (radiate) 
140: I=H:A=C:B=O 
M 13 


0 Iff 
150: M=DMS H:GOSUB 500 
160: PRINT USING "#######.####";"A=",M 


N 14 
170: PRINT "L=",G 
0 15 
180: GOTO 40 
500: M=INT (OMS COEG M+.00014)*(4)/l4 
p 16 
510: RETURN 


Q 17 
334 


R 18 
s 19 


T 20 
u 21 
v 22 
w 23 


X 24 
y 25 
z 26 
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SHARP 


Title 
I 


PROGRAM NO. 
COORDINATE AREA CALCULATION 
p4~ C-5 


[ Formula 1 


Determine the area of a polygon by inputting the coordinates of each vertex, according to the 
equation below. 


2 s = ,E' { ( X i+I - Xi ) ( y •+I + y i ) 
} 


[ Example 1 


X 
X= 31m 
Y= 20m 


® 
<2) 


@ 
X= 17m 
X2 = 19m 
Y= 10m 
Y2= 44m 


CD 
}Ct=2.512m 
Y1= 18.123m 
y 


[ Operation 1 
c LOAD 
V C 5 v 
(ENTER( 


Input 
Display 
Note 
Input 
Display 
Note 


1 
I SHFT l 
~ 
11 
s = 482.419000 


2 ( n) 4 
(UTERI N=4 
No. of . 
vertices 12 
Input coordinates n times 


3 (Xl)2 .512 (EllER] XI= 2.512 
13 


4 (Y I) 18.1 23lill(R] Y 1= 18.123 
14 


5 (X 2) 19 
(ENTER( X= 19 
15 


6 (Y 2)44 
(EllER( Y= 44 
16 


7 (X 3)31 
[iill] X= 31 
17 


8 (Y 3)20 
(EllER) y = 20 
18 


9 (X,) 17 
(EllER) X= 17 
19 


10 (Y4)10 
(ENTER( Y= 10 
20 


~-104- 


Title 
COORDINATE AREA CALCULATION 


PROGRAM NO. 
p 4- c- 5 


Memory content 
A 1 
X; 


B 2 
Y; 


c 3 
X;+I 
10: "A":INPUT "N= "iN:G=O 


D 4 
Y;+l 
20: INPUT "X1= ";A,"Y1= "iB:E=A:F=B 
30: INPUT "X= ";C,"Y= "iD 


E 5 
X( 1) 
40: GOSUB 500 


F' 6 
Y( 1 ) 
SO: A=C:B=D:N=N-1 
60: IF N<>1 GOTO 30 


G 7 
.I; 2 s 
70: C=E:D=F:GOSUB 500 


H 8 
2 s 
80: S=ABS G/2 
90: PRINT USING "#########.######"i"S="iS 
I 9 
100: END 


J 10 
500: H=(C-A)*(D+B) 
510: G=G+H 
K 11 
520: RETURN 


L 12 
186 


M 13 


N 14 
n 


0 15 
p 16 


Q 17 


R 18 
s 19 
s 


T 20 
u 21 
v 22 
w 23 


X 24 
y 25 
z 26 
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SHARP 


Title 
DIAGONAL AND PERPENDICULAR AREA 
I PROGRAM NO. 
CALCULATION 
P4~ C-6 


[ Formula] 


(I) 
Feed the coordinates at three points 
' 
sequentially, and find the area of each 
' ' 
triangle. 
, 
I 
' 
I 
' 
S = -} h L (L: longest side of a, b, c) 
a 
I 
~,, 
~ ' / r--- --- 
~ 
where, h is the height, discarding 4th 
/ 
'',,, 
I 
decimal. 
(2) 
-- - 
' 
NOTE) Each side length is expressed in 
b 
(3) 
maximum 4 digits in integer part, 
rounding off the 4th decimal. 


[Example] 


X 
X=16 
Y=8 


I 


X=8 
\ 
Y=4 
s1 
I 
s2 
X=10 
\ 
Y=20 


I 


X=4 
Y=IO 
y 


[ Operation ] 
c LOAD vc 6 \7 
[mER( 


Input 
Display 
Note 
Input 
Display 
Note 


1 
ISH FT I 
~ 
11 
[ENTER( TS = 31 .996580 


2 (XI) 4 
[ENTER( 
? 
12 
[ENTER( 
Repeat from step 2 on. 


3 CY1) 10 
[ENTER I ? 
13 


4 (Xz) 8 
[mER[ 
? 
14 


5 Cy z) 4 
[ENTER( 
? 
15 


6 (X3) 16 
[EllER( 
? 
16 


7 (Y 3) 8 
[ENTER[ 
? 
17 


8 
A = 7 . 211 B = 8. 944 
18 


9 
[ENTER( C= 12.166 H= 5.260 
19 


10 
(ENTER( s = 31 .996580 
20 
-106- 


Title 
DIAGONAL AND PERPENDICULAR AREA 
PROGRAM NO. 
CALCULATION 
p 4- c- 6 


Memory content 


A 1 
a 


B 2 
b 
c 3 
X1 
c 
10: "A":K=O 


D 4 
20: INPUT c,D,E,F,G,H 
yl 
30: X=E-C:Y=F-D:GOSUB 500 


E 5 
X2 
40: A=X:X=G-E:Y=H-F:GOSUB 500 
50: B=X:X=C-G:Y=D-H:GOSUB 500 
F' 6 
y2 
60: C=X 


G 7 
x3 
70: IF A>XLET X=A 
80: IF B> XL ET X=B 
H 8 
y3 
90: I=( A+B+C) /2 


I 9 
s 
100: S=J<I*(I-A)*(I-B)*(I-C)) 
110: J=IrJT ( (2*S/X)*E3) /E3 
J 10 
(h) 
120: L=X:GOSUB 600 


K 11 
..ES 
130: X=L:S=X*J/2:K=K+S 
140: L=A:GOSUB 600 


L 12 
v 
150: A=L:L=B:GOSUB 600 


M 13 
160: B=L:L=C:GOSUB 600 
170: C=L 


N 14 
180: PRINT USING "####fi.###";"A=";A;" 
B=";B 


0 15 
190: PRINT "C=";c;" 
H=";J 
200: PRINT US HJG "###tltlt!tlt!# .fl####ft" ;"S=" ;s 
p 16 
210: PRINT "TS=";K 


Q 17 
220: GOTO 20 
500: X=J(X*X+Y*Y):RETURN 


R 18 
600: L=INT (L*l3+.5)/E3:RETURN 
s 19 
393 


T 20 
u 21 
v 22 
w 23 


X 24 
6X 


y 25 
6Y 


z 26 
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SHARP 


Title 
I 


PROGRAM NO. 
TRIANGLE CALCULATIONS 
p 4- c- 7 


[ Formula] 


A) Given two sides and the included angle. Find the other one side, tw.o angle, and area. 


A 
a =/b 2+c 2-2 be cos a 


c 
az+cz-bz 
A 
B =cos -l 
b 
2 a c 
B 
B 
c 
C=180-A-B 
a 
c 
1 
S =-be sin A 
2 


B) Given two angles and the included side. Find the other one angle and two side lengths. 


A 
A=180-(B+C) 
~ 


a 
b =---sin B 
B~C 


sin A 


a 
a 
c=--- sin C 
sin A 


C) Given three side lengths. Find the area and interior angles. 


A 
A= cos-1 bz+cz-az 


2 be 
c 
A 
b 
az+ cz- bz 


B = cos-1 
s 
c 
2 a c 
c 
B 
C=180-A-B 
a 
B 


Input 
Display 
Note 
Input 
Display 
Note 


1 
ISH FT I 
~ 
11 
[]ffi] 
~ 


2 (b) I 07 .287[ENTER[ SB = 107.287 
12 (a) 123.456[ENTER[ SA= 123.456 


3 (c) 62.052 [ENTER[ sc = 62.052 
13 (B) 60 .203 [ENTER[ B = 60.203 


4 W89.2910[ENTER[ A = 89.2910 
14 (C) 30.1 020[ENHR] c = 30.1020 


5 
SA= 
123.4565 
15 
A = 
89.2910 


6 
[ENTER] B = 
60.2030 
16 
[ENTER] SB = 
107.2865 


7 
[ENTER] c = 
30 .1020 
17 
[ENTER] sc = 
62.0515 


8 
[ENTER] s = 
3328.5525 
18 
[ENTER] s = 
3328.5163 


9 
[ENTER] 
Reaffirmation 
possible 
19 
[iff~ 
Reaffirmat10n 
possible 


10 
20 
-108- 


SHARP 


Title 
TRIANGLE CALCULATIONS 


[Example] 


S = 3328.5526(m2) 


[ Operation ] 


C 
LOAD V C 7 v 
[ENTER[ 


PROGRAM NO. 
p 4- c- 7 


NOTE) Side length and area are expressed by discarding the 5th 
digit. 


~ program: 
Calculation with two sides and included angle given. 


~ program: 
Calculation with two angles and included side given. 


~ program: 
Calculation with three side lengths given. 


Input 
Display 
Note 
Input 


1 [SHIFT[ 
~ 
11 


2 (a) 123.457[ENTER[ SA= 123.457 
12 


3 (b) I 07 .287[ENTER[ SB = 107.287 
13 


4 (c) 62.052 [ENTER[ sc = 62.052 
14 


5 
A 
= 89.2912 
IE- 
15 


6 
[EITEl B 
= 60.2029 
16 


7 
[EITEl c = 30.1020 
17 


8 
[illii] s = 3328.5527 
18 


9 
[EITEl[ 
Reaffirmation 
possible· 
19 


10 
20 
-109- 


Display 
Note 


Title 


PROGRAM NO. 
TRIANGLE CALCULATIONS 
p 4- c- 7 


Memory content 


A 1 
a 


8 
2 
b 
c 3 
c 
10: "A":DEGREE :INPUT "SB= ";B,"SC= ";C,"A= 
";O 


D 4 
A, A 0 
20: D=DEG 0 
E 5 
B, B0 
30: GOSUB 500 
40: GOSUB 600 


F 6 
c 'co 
SO: GOSUB 700 


G 7 


() 0 !If 
60: F=180-D-E 
70: PRINT USING "####### .##fttl" ;"SA=" ,/l. 
H 8 
80: G=E:GOSUB 800 


I 
9 
90: PRINT "B=",G:G=F:GOSUB 800 
100: PRINT "C=",G 
J 10 
110: PRINT "S=",S:GOTO 70 


K 
120: "B":DEGREE :INPUT "SA= ";A,"B= ";E,"C= 


11 
";F 


L 12 
130: E=DEG E:F=DEG F 


M 
140: 0=180-E-F 


13 
150: B=A*SIN EISIN D 
N 14 
160: C=A*SIN F/ SIN D:GOSUB 700 
170: G=D:GOSUB 800 
0 15 
180: PRINT USING "#####fltl.flflfi#";"A=",G 


p 16 
190: PRINT "SB=",B 
200: PRINT "SC=",C 


Q 17 
210: PRINT "S=",S:GOTO 180 


R 18 
220: "C":DEGREE 


= ";c 


:INPUT "SA= ";A,"SB= ";B,"SC 


s 19 
s 
230: D=ACS ((B*B+C*C-A*A)/2/8/C) 


T 20 
240: GOSUB 600 
250: F=180-D-E 
u 21 
260: GOSUB 700 


v 22 
270: G=D:GOSUB 800 
280: PRINT USING "flt!#tfttfltt.#tlfftt";"A=",G:G=E: 


w 23 
GOSUB 800 


X 24 
290: PRINT "B=",G:G=F:GOSUB 800 
300: PRINT "C=",G 


y 25 
310: PRINT "S=",S:GOTO 270 
500: A=f(B*B+C*C-2*B*C*COS D):RETURN 
z 26 
600: E=ACS <<A*A+C*C-B*B)/2/A/C):RETURN 
700: S=B*C*SIN D/2:RETURN 
800: G=DMS {G+.00014):RETURN 


584 
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SHARP 


Title 
POINT ON STRAIGHT LINE AND PARALLEL 
PROGRAM NO. 
MOVING POINT 
p 4- c- 8 


[ Formula] 


Given coordinates of two points, moving distance, and vertical distance. This program find the 
coordinates of the point of parallel movement. 


X A: 


NOTE) The coordinates of the result are given 
in 5 digits of integral part, discarding 


hx ___.-C9: 
5th decimal. 


(y: 
+h 


(y. 
<9~ 
y 


[Example] 


X 
q' 
XF.3.625m 
gY,~6.512m 


( Xp: 2.0057m 
x.-lm q 
Yp- 3.7287m 


(v.=zm 
y 
( Xq =I .I4L3m 
Yq = 4.23I5m 


( Xq' = 2.870Im 
Y q' = 3 .2258m 
. 
[ Operation ] 
c LOAD 
'V c 8 
'V [EllER) 


Input 
Display 
Note 
Input 
Display 
Note 


1 ! SHFTI 
~ 
11 


2 (X .)I 
lEITER/ x.= I 
12 


3 (Y .)2 
(EllER( Y 1 = 2 
13 


4 (Xz)3 .625(EITER) Xz= 3.625 
14 


5 (Y 2)6 .5I2[EITER) Yz=6.5I2 
15 


6 (L) 2 
(ENTER( L = 2 
~ 
16 


1 (h) I 
(ENTER) H =I 
17 


8 
p: 2.0057 
3.7287 
(xp,yp) 
18 


9 
(ENTER( Q: I.l4I3 
4.23I5 
(xQ.xQ) 
19 


10 
(EITERi 
Repeat 
20 
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Title 
POINT ON STRAIGHT LINE AND PARALLEL 
PROGRAM NO. 
MOVING POINT 
P4-C-8 


Memory content 


A 1 
X, 


8 
2 
Y, 


c 3 
x2.r 
10: "A":DEGREE :INPUT "X1= ";A,"Y1= ";B,"X2 
= ";C,"Y2= ";D 


D 4 
y2 
20: X=C-A: Y=D-8 


E 5 
30: C=[( X*X+Y*Y) 
l 
40: X=ACS (X/C) :IF Y<OLET X=360-X 


F 6 
h 
50: INPUT "L= ";E,"H= ";F 


G 7 
60: G=E*COS X+A:H=E*SIN X+B 
Xp 
70: PRINT USING "######.####";"P:";G;H 


H 8 
Yp 
80: I=X+SGN F*90:F=ABS F 


I 
()' 
90: J=F*COS I+G:K=F*SIN I+H 
9 
100: PRINT "Q:";J;K 


~ 10 
XQ 
110: GOTO 50 


219 
K 11 
YQ 


L 12 


M 13 


N 14 


0 15 
p 16 


Q 17 
R 18 
s 19 
T 20 
u 21 
v 22 
w 23 


X 24 
L'-.X,(} 


y 25 
6Y 


z 26 
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SHARP 
l 


PROGRAM NO. 
Title 
STADIA CALCULATION 
P4-C-9 


[Formula] 


This is the calculation method using the stadia hair of the transist. This program computes the 
horizontal distance S and ground height GH from the stadia reading length and angle of elevation. 


~'+::· 
t'' 


~3. 
S=Kl cos 2 a+C cos a 
I z 
"j 
6H=tKl sin 2 a+C sin a 
l 3 


GH 


11\::>Z 
-~ 
~ iH 
K: stadia multiplier constant 
s 
C: 
stadia addition constant 


;H: machine height 


GH=6H+iH-l2 


[ Example] 


K=100, c = 0.3 
iH= 1 


1 1 = 1 . 6 25m 
a= 8°47' ~ 
5=129.707 
l 2=0.962m 
GH= 20.079 


/3= 0 . 3m 


[ Operation ] 
c LOAD 
\l c 9 \l 
(EllER) 


NOTE) Distance is expressed by discarding the 5th decimal. 


lA] program: 
For input of constants 


~program: For input of survey data 


Input 
Display 
Note 
Input 
Display 
Note 


1 I SHFT I 
lA] 
11 
ISH fT I ~ 


2 (K)IOO 
)ENTER( K = 100 
Initial setting 12 (1 1) 1 .625 (EllER) L1 = 1.625 


3 (C) .3 
[ENTER) c = .3 
13 ( l 2) .962 (ENTER) L2 = .962 
4 (i H) 1 
[ENTER) IH = 1 
14 (13) .3 
(ENTER[ L3- .3 


5 
15 (a) 8.47 OCiilll A= 8.47 


6 
16 
s - 129.7070 
b 


7 
17 
(ijnRI GH- 20.0790 
~ 


8 
18 


9 
19 


10 
20 
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PROGRAM NO. 
Title 
STADIA CALCULATION 
P4- C-9 


Memory content 


A 1 
K 


B 2 
c 
c 
10: "A":INPUT "K= ";A,"C= ";B,"IH= ";F 
3 
cos a 
20: END 
D 4 
s 
30: "B" :DEGREE :INPUT "L1= ";G,"L2= ";H,"L3 


= ";I,"A= ";J 
E 5 
6H 
40: J=DEG J :L=ABS (G-I) :C=COS J 
F 6 
iH 
50: D=A*L*C*C+B*C 
60: E=A*L*SIN (2*J)/2+B*SIN J 
G 7 
l 1 
70: K=E+F-H 
H 8 
l 2 
80: PRINT USING "####f:lf:l#.#f:lf:I#";"S=",D 
90: PRINT "GH=",K:GOTO 80 
I 
9 
l 3 
100: END 


~ 10 
a. a 
0 
194 


K 11 
GH 


L 12 
l 


M 13 
N 14 


0 15 
p 16 


Q 17 
R 18 
s 19 
T 20 
u 21 
v 22 
w 23 


X 24 
y 25 
z 26 
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SHARP 


Title 


PROGRAM 
NO. 
SINGLE CURVE CALCULATIONS 
p4-C-JO 


[ Formula] 


This program determines each element of a single curve by giving intersecting angle lA and 
radius R. Also, the deflection angle and chord length are found by giving the curve length. 


Tangential length 
IA 
TL =R tan-·- 


2 


Curve length 


7r 
CL=R--IA 


~~ 


I 8 0 


Chord length 
IA 
L 
L = 2 R sin-- 
I 
CL 
2 


ai~VA!, 
Exterior line length 
IA 
SL=R(sec--1 ) 


~ v 


2 


Middle ordinate 
IA 
M=R (I -cos-) 
2 


R 2 
n•IA 
Area 
S=2(lsQ -sin IA) 


Deflection angle 
90 
L; 
a-=-·-- 
I 
7r 
R 


Chord length 
l; = 2 R sin a; 


[Example] 
R =100m 
TL = 
32 .814m 
IA = 36 o 20' 
CL= 63.4!4m 
L= 62.356m 


SL = 
5 .246m 
M= 
4.985m 


S = 208.2717 m 


[ Operation ] 
c LOAD v c I 0 v !ENTER[ 
NOTE) Distance is expressed by discarding 


~program: (R, lA) input 
the 5th decimal. 


~program: (R, L) input 


Input 
Display 
Note 
Input 
Display 
Note 


1 
[SHFT; 
~ 
11 
l SI1_Fl] 
~ 


2 (R)JOO 
[ENTER] R 
= 100 
12 (R) 100 
[ENTER I R= 
100 


3 (I A)36 .20@ IA = 36.20 
13 (L 1)10 
lillfii1 L= 
10 


4 
TL = 
32.8138 
14 
A= 2.5153 L=9 .9958 
c a , t ) 


5 
!ENTER] CL = 
63.4136 I 
15 
[ENTER[ 


6 
[ENTER) L 
= 
62.3564 Reaffirmation16 
Repeat 


[OOER1 
5.2461 
possible 
7 
SL= 
17 


8 
[@Rj M = 
4.9846 
18 


9 
]ENTER! s = 
208.2717 
19 


10 
[ENTER[ 
20 
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Title 
SINGLE CURVE CALCULATIONS 
PROGRAM NO. 
P4-C-10 


Memory content 


A 1 
R 


B 2 
IA , IA o 
c 3 
IA/2 
10: "A":DEGREE :INPUT "R= ";A,"IA= ";B 
D 4 
TL 
20: B=DEG B:C=B/2:D=A*TAN c 
E 5 
CL 
30: E=A*~180*B:F=2*A*SIN C 
40: G=A*(1/COS C-1):H=A*(1-COS C) 


F 6 
L 
50: I=A*A/2*0t*B/180-SIN 8) 


G 7 
SL 
60: PRINT USING "#######.####";"TL=",O 
70: PRINT "CL=",E 


H 8 
M 
80: PRINT "L=",F 


I 
9 
s 
90: PRINT "SL=",G 
100: PRINT "M=",H 
..J 10 
l j 
110: PRINT "S=",I 


K 11 
iJ 
120: GOTO 60 
130: "B":DEGREE :INPUT "R= ";A 


L 12 
140: INPUT "L= ";F 


M 13 
150: K=90*F/JC/ A 
160: J=2*A*SIN K 
N 14 
170: K=DMS (K+.00014) 
180: PRINT USING "####.####";"A=";K;USING "# 
0 15 
####.####";" L=";J 


p 16 
190: GOTO 140 


323 
Q 17 
R 18 
s 19 
T 20 
u 21 
v 22 
w 23 
X 24 
y 25 
z 26 
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SHARP 


PROGRAM NO. 
Title 
CLOTHOID CURVE 
P 4- C- I I 


[Formula] 


Of the clothoid curve elements, A and R, or A and L are inputted, and X, Y, T, etc. 
are determined. 


yl 


M 


r 
R 
A2 


--~-- 
L=- 
(X,Y) 
R 
~ 
~ 
A 
~ 
----- 
!=- 
KA 
6R 
r 
R 


X 
XM 


TL 


!' 
f B 
[12 


) 
X'=iAl ( 1--+--- 


40 
3456 
599040 


A/ 3 
l' 
! 8 
[12 
Y'=i-( I--+-- - 
) 
6 
56 
7040 
1612800 


L 
I 8 0 
y 
Tangential angle r=-- 
X -- 
XM=X-Rsinr 
a= tan-1 - 
2R 
TC 
TL =X-Y cotr 
X 


TK= Y· cosec r 
SC = Y• cosec a 
Shift 6R=Y+R cos r-R 


[Example] 
A= 100 
X= 49.922 
XM = 24.987m 
R =200m 
Y= 2.081 
TL = 33.361 m 
L= 50 
t = 7 ° 09'43 
11 
6R= 0.521m 
SC= 49.965 
a = 2 o 23'13" 


TK = 16.692 


[ Operation ] 
c LOAD v C 11 v ]ENTER] 
NOTE) Distance is expressed by discarding 


!Ai program: 
(A, R) input 
the 5th decimal. 


[!:!] program: 
A, L) input 


Input 
Display 
Note 
Input 
Display 
Note 


1 @I] 
~ 
11 
[Mil) D 
2.2313 


2 (A)IOO 
]ENTER] ? 
12 
lENT£!] sc 
49.9652 


3 (R)200 
]ENTER! ? 
13 


4 
L 
50.0000 
14 
[Siml 
~ 


5 
l@.RJ 49.9219 
2.0810 
(X,Y) 
15 (A) 100 
[ENTER] 
? 


6 
]EITERI T 
7.0943 
16 (L) 50 
;ENT£Rl L= 


7 
]Eiill) XM 
24.9869 
17 
R 
200.0000 


8 
[EmRI TL 
33.3606 
18 
I 
I 


9 
l@.Rl TK 
16.6915 
19 


I 
Similarly thereafter 
i' 


10 
j£1T£Ri DR 
0.5205 
20 
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Title 
CLOTHOID CURVE 
PROGRAM NO. 


P4~C-ll 


Memory content 


A 1 
A 
B 2 
R 
c 3 
[ 
, T 
10: "A":L=1:GOTO 30 
20: "8":L=O 


D 4 
L 
30: DEGREE :INPUT A 
E 5 
XM 
40: IF L=OINPUT "L= ";o :8=A*A/ o :GOTO 60 
50: INPUT 8 
F 6 
TK 
60: C=AI8:D=A*A/8 


G 7 
70: USING "#######.####" 


TL 
80: IF L=OPRINT "R"iB:GOTO 100 


H 8 
L,.R 
90: PRINT "L"iD 


I 
9 
100: X=A*C*(1-CA4/40+CA8/3456-CA12/599040) 
a 
110: Y=A*CA3/6*(1-CA4/56+CA8/7040-CA12/1612B 
J 
10 
sc 
00) 


{} 0 If/ 
120: PRINT x,y 
K 11 
130: C=D*90/B/X:K=C:GOSU8 500 


L 12 
Discriminant 
140: PRINT "T"iK 
150: E=X-B*SIN C :PRINT "XW' iE 


M 13 
160: G=X-Y/TAN C:PRINT "TL"iG 


N 14 
170: F=Y/SIN C:PRINT "TK"iF 
180: H=Y+B*COS C-B:PRINT "DR"iH 
0 15 
190: I=ATN (Y/X):K=I:GOSUB 500 


p 16 
200: PRINT "D"iK 
210: J=Y/SIN !:PRINT "SC"iJ 


Q 
17 
220: 
E~JD 


R 18 
500: K=Dr·1S (K+.00014) :RETURN 
391 
s 19 


T 20 
u 21 
v 22 
w 23 


X 24 
X 
y 25 
y 
z 26 


-118- 


SHARP 


Title 
PROGRAM NO. 
COORDINATES CONVERSION 
P4-C-12 


[ Formula] 


This program converts the local coordinates into original coordinates, and vice versa. 


X 
\ 


X = Xo+ x cos (} - y sin (} 


I--· 
Y =Yo+ x sin (} + y cos (} 


~ 


-- 
,· 
' 


............ ~y 
x = ( X- X0 ) cos (} + ( Y- Y 0 ) sin (} 
Xo 
~ 
y = ( Y - Y 0 ) cos (} - ( X - X0 ) sin (} 


Yo 
y 
8 should be negative if counterclockwise. 


[Example] 


X 'W 


Y=Bm 
v 


Xo=7m 
Yo= 13m 
y 


[ Operation ] 


c LOAD V'C12V' 
[ENTER[ 


NOTE) Coordinates are expressed by discarding the 5th 
decimal. 


[!J program: 
For input of constants 


~program: Original coordinates calculation 


[Q] program: 
Local coordinates calculation 


Input 
Display 
Note 
Input 
Display 
Note 


1 ISHrll 
l!l 
11 
I SHFT[ 
~ 


2 (Xo)7 
lEillkl Xo= 7 
12 (X) 16 . 7 62[1!l!!] X= 16.762 


3 (Y0)13 
[ENTER! Yo= 13 
13 (Y)17 .207[ENTER[ y = 17.207 


4 ((}) -25 .3 [[iiTil A= -25.3 
14 
6.9998 
7 .9998 
(X , y) 


5 
15 


6 l!illJ 
~l 
16 


7 (x) 7 
[ENTER! SX= 7 
17 


8 (y) 8 
[ENTER' SY= 8 
18 


9 
16.7621 
17.2071 
(X,Y) 
19 


10 
20 
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• 


Title 
COORDINATES CONVERSION 


PROGRAM NO. 
P4-C-12 


Memory content 
A 1 
Xo 


B 2 
Yo 
c 3 
()0 


D 4 
X,x 
1 0: "A" :DEGREE :INPUT "XO= ";A,"YO= ";B,"A= 
";c 


E 5 
Y,y 
20: C=DEG C:END 


F' 
6 
30: "B":INPUT "SX= ";X,"SY= ";y 
40: D=A+X*COS C-Y*SIN c 
G 7 
SO: E=B+X*SIN C+Y*COS c 


H 8 
60: GOSUB 500 
70: END 


I 
9 
80: "C":INPUT "X= ";X,"Y= ";y 


~ 10 
90: X=X-A:Y=Y-8 
100: D=X*COS C+Y*SIN c 
K 11 
110: E=Y*COS C-X*SIN c 
120: GOSUB 500 


L 12 
130: END 
M 13 
500: PRINT USING "tt##tt#ttfl.tttttttt" ;o, E 
510: RETURN 
N 14 
215 


0 15 
p 16 


Q 17 
R 18 
s 19 


T 20 
u 21 
v 22 
w 23 


X 24 
x,LX 


y 25 
y,LY 


z 26 
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SHARP 


Title 
PROGRAM NO. 


CHAMFER CALCULATION 
P4-C-13 


[ Formula] 


By specifying points (1), (2), (3), and 1 or L, 
X 
this program determines the side length L, 
(1) 
chamfered area, and coordinates of points P 


p 
and Q. 


e 


L = 2 • l sin~ 
' st L 
(3 
2 


(2) e 
S=(~)z 
f3 
Q 
• cot- 


(3) 
2 
2 


___.. 


y 
The order of points (1), (2), (3) may be inverted 
to (3), (2), (1), but the positions ofP and Q are 
also inverted in this case. 


[Example] 


l 
=1 
X 
(X1= 5 
L 
= 1 .576 
5 
Y1=1 
s 
= 0.4851 


(X3= 4 
Y3= 10 
Xp = 1 .707 


p r I ) 
Q 
Yp = 4.293 


~(X"= 
I 
X 0 =I .514 
Y 2 = 5 


5 
10 
Yo= 5.857 
y 


[ Operation ] 
c 
LOAD \7 c I 3 \7 
[ijill] 


~ program: 
l input 
NOTE) The distance, area, and coordinates are 


~ program: L input 
expressed by discarding the 5th decimal. 


Input 
Display 
Note 
Input 
Display 
Note 


1 ITffiJ 
~ 
11 
lill1!J 
I .7071 
4.2928 
(xp,yp) 


2 CX1) 5 
(ENTER/ X1= 5 
12 
[fiT[R1 1.5144 
5.8574 
(xQ.YQ) 


3 CY1) 1 
(ENTER( Y1= I 
13 


4 (X 2) I 
[[ijij) Xz= I 
14 
iffill 
~ In this case, input is in the case of 


[E!ill] 
~. and input (L) in place of the 
- 
5 (Y z) 5 
Yz= 5 
15 
' ' 
final ( l). 
6 (X3) 4 
[ENTER/ X3= 4 
16 


I 
I 
' 
7 (Y,) 10 
[EN@ Y3= 10 
17 (L) I .576 
(ENTER! 
L 
= 1.576 


8 (l) I 
Lf!TtR] SL =I 
18 
SL = 0.9997 


9 
L = 
I .5764 
19 
(ENTER( s = 0.4848 


10 
llli:£!1 s = 
0.4850 
20 
i Similarly thereafter 
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Title 
PROGRAM NO. 


CHAMFER CALCULATION 
P4-C-13 


Memory content 


A 1 
(}/2 


8 
2 
X1 
c 
10: "A":M=O:GOTO 30 
3 
Yr 
20: "8" : M=1 
D 4 
30: DEGREE :INPUT "X1= ";B,"Y1= ";C,"X2= II• 
Xz 
, 


E 
D,"Y2= ";E,"X3= ";F,"Y3= ";G 
5 
Yz 
40: IF M=OINPUT "SL= ";H:GOTO 60 


F 6 
x3 
50: INPUT "L= ";J 
60: X=B-D:Y=C-E:GOSUB 500 


G 7 
y3 
70: I=X:X=F-D:Y=G-E:GOSUB 500 


H 8 
l 
80: A=ABS (X-!) /2 :USING "######fl.####" 
90: IF M=OLET J=2*H*SIN A:GOTO 110 
I 
9 
(}! 
100: H=J/2/SIN A 


~ 10 
L 
110: IF M=OPR !NT "L=" ;J : GOTO 130 
120: PRINT "SL=";H 


K 11 
L/2 
130: K=J/2:L=ABS (K*K/TAN A) 


L 12 
s 
140: PRINT "S=";L 
150: GOSUB 600 


M 13 
v 
160: I=X:GOSUB 600 


N 14 
170: END 
X 
500: A=f<X*X+Y*Y) 
0 
15 
y 
510: X=ACS (X/ A) :IF Y<OLET X=360-X 


p 16 
520: RETURN 
600: N=H*COS I+D:O=H*SIN I+E 
Q 
17 
610: PRINT N,O 


R 
620: RETURN 
18 
373 
s 19 


T 20 
u 21 
v 22 
w 23 
X 24 
6X 
(}3 


y 25 
6Y 


z 26 
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SHARP 


Title 
INTERSECTING POINT AND PERPENDICULAR 
I PROGRAM NO. 
CALCULATION 
P4-C-14 


[ Formula] 


(A) 
(B) 
(c) 
(D) 


X 


~ 
I 


(4)x~) 


1 (}I 
(2) 


I 
X 


I 
p 


I 
I 
I 
p : ()a 
)3 
I 
3) 
I 


(1) 
I 
(1) 
(3) 
(1) 
(1) 
(3) 
y 


The intersecting points in the diagrams above are found by giving the coordinates and 
direction angle. 


[ Example] 


X3=6 (}3= 153°26'06 
11 


X 


~x,~s 


X 


ex= 2.615 
5 
Y2=4 
5 
Y= 3.077 


cx=4 
X2=4 
Y=3 
Y2=4 


(7,=45° 


X4=2 
X3=4 
x,=2 
Y,=4 
Y3= 1 
Y1=1 


5 
y 
x,=I 
5 
y 
Y1=2 


[ Operation ] 
c LOAD 
'V c 1 4 
'V 
]EllER] 


NOTE) Coordinates are expressed by discarding the 5th 
decimal. 


Input 
Display 
Note 
Input 
Display 
Note 


1 [JIITI] 
~ 
11 
ISH FT I ~ 


2 (X,) 2 
I ENTER] X,= 2 
12 (X 1 ) 2 
[ffifii] X1= 2 


3 (Y ,) I 
HTER Y1 = 1 
13 (Y,) 1 
]ENTER] Y 1 = 1 


4 (Xz) 5 
!ENTER: X2 = 5 
14 ((},) 45 
]ENTER] A 1 = 45 


5 (Yz) 4 
!ENTER] Y2= 4 
15 (X3) 6 
[ENTER] X3= 6 


6 (X3) 6 
I ENTER' X3= 6 
16 (Y3) 2 
[ENTER] Y3= 2 


1 (Y 3) 2 
]ENTER] Y3= 2 
17 (1.1,)153.2606 [ENTER] A 3= 153.2606 


8 (X4) 2 
[ENTER] x.= 2 
18 
3.9999 
2.9999 
(Xp .Yp) 


9 (Y 4) 4 
]ENTER] Y4 = 4 
19 


10 
3.9999 
2.9999 
(Xp .Yp) 
20 
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SHARP 


Title 
INTERSECTING POINT AND PERPENDICULAR 
PROGRAM NO. 
CALCULATION 
P4-C-14 


~program: Input of 4 points 


~program: Input of 2 points and 2 direction angles 


[g program: 
Input of 3 points and 1 direction angle 


[Q] program: 
Perpendicular. 


Input 
Display 
Note 
Input 
Display 
Note 


1 
ISH FT I 
~ 
11 
] SHFT] 
[Q] 


2 CX1) 2 
]ENTER] XI= 2 
12 (XI) 1 
]ENTER] X1= 1 


3 (Y 1) 1 
[ill£_~] YI= 1 
13 (Y 1) 2 
]ENTER I Y1= 2 


4 (X 2) 5 
]ENTER] X 2 = 5 
14 (Xz) 4 
]ENTER] Xz= 4 


5 (Y z) 4 
WER] Yz= 4 
15 (Yz) 4 
]ENTER] Y 2 = 4 


6 (X 3) 6 
[Nlli] X3= 6 
16 (X3) 4 
]ENTER> X3= 4 


7 (Y 3) 2 
[ill[~ Ya= 2 
17 (Y 3) 1 
[ijill1 Y3= 1 


8 c o,JI53. 2606 l®_R] A 3= 153.2606 
18 
2.6153 
3.0769 
(Xp,Yp) 


9 
3.9999 
2.9999 
(Xp,Yp) 
19 


10 
20 
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Title 
INTERSECTING POINT AND PERPENDICULAR 
I PROGRAM NO. 
CALCULATION 
P4-C-!4 


Memory content 


A 1 
X 


B 2 
X1 
y 
c 3 
yl 
10: "A":GOSUB 600 
20: INPUT "X4= ";H,"Y4= "il 


D 4 
Xz 
3n· GOSUB 700 


E 
40: X=H-F:Y=I-G:GOSUB 500 
5 
y2 
50: K=X:GOTO 160 


F 6 
x3 
60: "B":INPUT "X1= ";B,"Y1= ";C,"A1= "iJ 


G 
70: INPUT "X3= ";F,"Y3= ";G,"A3= ";!( 


7 
y3 
80: J=DEG J:K=DEG K:GOTO 160 


H 8 
x4 
90: "C":GOSUB 600 
100: INPUT "A3= "iK 
I 9 
y4 
110: K=DEG K:GOSUB 700 


J 10 
()l 
120: GOTO 160 


()3 
130: "D":GOSUB 600 


K 11 
140: GOSUB 700 


L 12 
r 
150: K=J+90 
160: X=TAN {J+(-4):Y=TAN (K+E-4) 
M 13 
170: A=(X*B-Y*F-C+G) /(X-Y) 
N 14 
180: B=X*(A-B)+C 
190: PRINT USING "#######.##tl#"iA,B 
0 15 
200: END 


p 16 
500: L=[( X*X+Y*Y) 
510: X=P.CS (X/U :IF Y<OLET X=360-X 


Q 17 
520: RETURN 


R 18 
600: INPUT "X1= ";B,"Y1= ";C,"X2= ";D,"Y2= " 


; E, "X3 = "; F, "Y3 = "; G 
s 19 
610: RETURN 


T 
700: X=D-B:Y=E-C:GOSUB 500 
20 
710: J=X:RETURN 
u 21 
439 
v 22 
w 23 


X 24 
6X, m1 
y 25 
6Y, m2 
z 26 
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SHARP 


Title 
A POINT AT A CERTAIN DISTANCE FROM TWO 
POINTS (INTERSECTING POINTS OF TWO CIRCLES) 


PROGRAM NO. 
P 4- C- I 5 


[ Formula] 


X 


p 


la 
{j 


(A) 
la 


{j 


l b (Negative) 


-"' 


(B) 


lb 


-.... (Positive) 


Q 


--~------------------------~-~ y 


[ Example] 
X 


-3,5 


V5=/2.236 


[ Operation ] 


C 
LOAD \7 C I 5 \7 
~j 


Given coordinates of points (A), (B), and 
distances la, lb. This program find the 
coordinates of points P and Q. 
Points P and Q are discriminated by 
changing the value of lb to positive and 
negative. When lb is positive, point Q 
is determined; when negative, point P is 
found. 


@ ( X= 2.4832 
Y= 2.3415 


(V (X= 0.8167 
y =- 0.9915 


~ program: 
For calculation of intersecting point 


~ program: 
For registration of coordinates 


NOTE) Coordinates are expressed by 


discarding the 5th decimal. 
Measure points should be from 
No. 1 to No. 8, in principle. 


Input 
Display 
Note 
Input 
Display 
Note 


2 :~eg1strat10n (ENTER( 
start No. 1 
' £=I 
1 2 Cf£ A) I 
~!ill] £A = I 


3 (Xl) 
I 
[NTER1 X= I 
13 Cf£B)2 
[ENTER] ;f;B = 2 


4 (Y 1) 
I 
[EN@ Y=l 


5 CX2)--1 
[ENTER I X=-1 
15 (lB)-3.5]ENTER] LB =-3.5 


6 (Y ,) 
2 
[ENTER] Y=2 


7 
: 
: 
' 
' 
17 
2.4832 
2.3415 


[ENTER] (NOTE) With this key, registration ends. 
B 
Register necessary points, however, up 
1 B 
g to 8 points including result 
---+--------1+- 
1 
- 
9 
~---------+-----------------l---------l 


10 
20 
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Title 
A POINT AT A CERTAIN DISTANCE FROM TWO 
PROGRAM NO. 
POINTS (INTERSECTING POINTS OF TWO CIRCLES) 
P4-C-15 


Memory content 


A 1 
IND a 


8 2 
i .w. r 


c 3 
X, .(B),(} 
10: "B": INPUT "NO= ";[3 
20: INPUT "X= ";C,"Y= ";D 


D 4 
Y;, a 
30: A=B:GOSUB 500 


E 5 
+/-b 
40: A(A)=C:A=A+1:A(A)=D 
50: B=B+1:GOTO 20 
F' 
6 
j 
60: "A":DEGREE :INPUT "NOA= ";B,"NOB= ";c,u 


G 7 
XA,X 
LA= ";D,"LB= ";E,"NO= ";F 
70: A=B:GOSUB 500 


H 8 
YA,Y 
80: G=A(A) :A=A+1:H=A(A) 


I 
90: A=C:GOSUB 500 
9 
Xs L'o.X 
100: I=A(A):A=A+1:J=A(A) 
J 10 
Ys L'o.Y 
110: I=I-G :J=J-H :B=J( I* I+J*J) 


( x, 
120: C=ACS (I/B):IF J<OLET C=360-C 
K 11 
130: A=ACS ((D*D+B*B-E*E)/2/D/8) 
L 12 \ Y, 
140: C=SGN E*A+C 
150: G=D*COS C+G:H=D*SIN C+H 


M 13 ( Xz 
160: PRINT USING "###ff###.#fffff1";G,H 


N 14 \ y 2 
170: A=F:GOSUB 500 
180: A(A)=G:A=A+1:A(A)=H 


0 15 ( 3 
190: GOTO 160 


p 16 \ 
500: A=2*A+9:RETURN 
386 
Q 17 
( 4 


R 18 \ 
s 19 
( 5 


T 20 \ 
u 21 ( 6 
v 22 \ 
w 23 ( 7 
X 24 \ 
y 25 ( 8 
z 26 \ 


-127- 


SHARP 


PROGRAM NO. 
Title 
CITY BLOCK VERTEX CALCULATION 
P4-C-16 


[ Formula] 


.... ..... 
Given city block points (1), (2), (3), 
(1) 


..... .... 
· · · , and half widths of road h 1 , h2 , 
.... .... 
P1' 
Pz' 
h3 , · · · as shown. The coordinates 
.... 
-hl 
' -....-------------... 
ofvertex P1 (Xpi> Ypi) are deter- 
' ' 
mined. Depending on the sign of 
(2) 
-hz 
' ' 
h, the calculation may be done on 
.... ........ .... +hl 
_ ... 
' ' 
(3) -ha ' 
either right side or left side of the 
.... .... 
' 
.... ' 
+hz 
running direction. 
.... 
' 
' 
' 
.... 


' 
' 
For the intersecting point with the 
...... ---------------- - 
' 
pl 
(4) 
block line, 0 should be inputted as 


ha=O 
h at the corresponding point. 


[ Example] 


X 
x.=3 


... 
Xa=3 
Y4=7 
3 
x,= 
Ya-5 


11 
-I 
Y1=l 
2 
-1 
xz= 1 
1.5 
Yz=3 
Pa 
( XP 1=-0.4524 
~I 1 
YP 1= 
3.6688 
I 


I 
( XPz= 
1.9999 
I 
YPz= 
6.1213 


~ 
5 
y 


P, 


[ Operation ] 
c LOAD \7 c 1 6 \7 
(ENTER] 
NOTE) Coordinates are expressed by discarding the 5th 
decimal. 


Input 
Display 
Note 
Input 
Display 
Note 


1 
I SH FTi 
[!) 
11 
-0.4524 
3.6688 
(Xp.Yp) 


2 (X 1)2 
(ENTER] XI= 2 
12 
[EITER] 


3 (Yl)1 
[ENTER] Y 1= I 
13 cx.)3 
[EllER] X=3 
Repeat 


4 (h 1)1 
[ENTER] HI= 1 
14 (Y 4)7 
[ENTER] Y=7 


5 (Xz) I 
(ENTER] Xz= I 
15 (h.)1 
~iill] H=1 


6 (Y z)3 
(ENTER] 
Yz= 3 
16 
1.9999 
6.1213 
(Xp, Yp) 


7 (h z)1 .5 
[ENTER[ 
H2 = 1.5 
17 


8 (X 3)3 
[ENTER] X=3 
18 


9 (Y a)5 
[ENTER I Y=5 
19 


10 (ha) I 
[ENTER] 
H=l 
20 
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Title 
CITY BLOCK VERTEX CALCULATION 


PROGRAM NO. 
P4-C-16 


Memory content 
A 1 
X1 
® 


8 2 
yl © 


c 3 
hl 
10: "A" :DEGREE :INPUT "X1 = ";A, "Y1 = ";a,"H1 


= ";c 


D 4 
X2 
20: INPUT "X2= ";O,"Y2= ";E,"H2= ";F 


E 5 
y2 
30: INPUT "X= ";G,"Y= ";H,"H= ";I 
40: X=D-A:Y=E-B:GOSUB 500 


F 6 
h2 
50: K=X:X=G-D:Y=H-E:GOSUB 500 


G 7 
x3 
60: Y=X+90:X=K+90 
70: A=A+C*COS X:B=B+C*SIN X 
H 8 
y3 
80: L=D+F*COS Y:M=E+F*SIN Y 


I 
9 
h3 
90: X=TAN (X-90+l-4):Y=TAN (Y-90+l-4) 
100: O=CX*A-Y*L-B+M)/CX-Y) 


J 10 r 
110: Y=B+ X* ( 0- A) 


K 11 
(}l 
120: PRINT USING "#######.####";O,y 
130: A=D:B=E:C=F:D=G:E=H:F=I 
L 12 
® 
140: GOTO 30 


M 13 
® 
500: J =[C X*X+Y*Y) 
510: X=ACS (X/J) :IF Y<OLET X=360-X 


N 14 
520: RETURN 


0 
® 


357 
15 
p 16 


Q 17 


R 18 
s 19 
T 20 
u 21 
v 22 
w 23 
X 24 
L.X,81+90 ,m1 
y 25 
6 Y , (} 2+9 0 , m2 (f) 


z 26 


-129- 


SHARP 


Title 
DIVISION INTO SPECIFIED AREA BY SPECIFYING 
PROGRAM NO. 


A POINT IN A POLYGON 
P4-C-17 


[ Formula] 


(1) 
According to the segment passing through point 


)B 


(1), the coordinates of point P to yield a specified 
area S0 are found. 


/ 
The calculation may be either clockwise or 
/ 
(5) 
counterclockwise. 


(2JFSo = R 
' " ' ' 


(3) 
\p 
(4) 


[ Example] 


X 


5 
x,=4 
( Xp= 0.4 


4 
CD 
Y,=3 
@ X5=3 
Yp= 5.8 
3 
(2) 
Ys=6 


2 
Xz=2 
X,= I 
I 


Y2= I 
@Y4 =7 
Sa=I 
~\ 


10 
y 


X3---1 
Y3= 3 


[ Operation ] 
c LOAD vCJ7v [ill_® 
NOTE) Coordinates are expressed by discarding the 5th 
decimal. 


Input 
Display 
Note 
Input 
Display 
Note 


1 l SH FlJ 
~ 
11 
0.4000 
5.8000 
(Xp ,Yp) 


2 (So) 12 
[ENTER[ So= 12 
12 
' 


3 (X,)4 
[ENTER I XI= 4 
13 Keep inputting until 
4 (Y 1)3 
[ENTER( Y 1= 3 
14 reaching specified area. 


5 (Xz)2 
[EllER( Xz= 2 
15 


6 (Y z) I 
[EllER( Y 2 = I 
16 


7 (X3)-I 
[ENTER( X= -I 
17 


8 (Y 3)3 
[ENTER[ y = 3 
18 


9 (X,)l 
[EllER[ X= I 
19 


10 (Y 4)7 
[ENTER[ y = 7 
20 
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Title 
DIVISION INTO SPECIFIED AREA BY SPECIFYING 
PROGRAM NO. 


A POINT IN A POLYGON 
p 4- c- 1 7 


Memory content 


A 1 
X1 
' k 


8 
2 
yl 
c 3 
Xz 
10: "A":INPUT "SO= ";E 
20: INPUT "X1 = II; A,"Y1 = ";B 
D 4 
Yz 
30: INPUT "X2= ";c,"Y2= ";D 


E 5 
So 
40: N=O 
SO: INPUT "X= ";X,"Y= ";y 


f 
6 
6X 1 
60: F=C-A:G=D-8 


G 7 
6Y 1 
70: H=X-C: I=Y-D 
80: J=A-X:K=B-Y 


H 8 
6Xz 
90: L=G*F+(2*G+I)*H+(2*G+2*I+K)*J 


I 
9 
100: 
~1=~1+L 
6Y2 
110: IF ABS M/2>EGOTO 130 
..J 10 
6X3 
120: C=X:D=Y:GOTO SO 


K 
130: A=-(ABS M-2*E)/ABS L 
11 
6Y3 
140: X=A*H+X:Y=A*I+Y 


L 12 
62 s 
1SO: PRINT USING "#######.####";X,Y 
160: END 
M 13 
17 2 s 
2SS 
N 14 


0 15 
p 16 


Q 17 


R 18 
s 19 
T 20 
u 21 
v 22 
w 23 
X 24 
x3 
y 25 
y3 
z 26 
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SHARP 


PROGRAM NO. 
Title 
PARALLEL SPECIFIED AREA DIVISION 
P4-C-18 


[ Formula] 
Q~ 
~(1) In a city block as shown on the left, when 
included angles a, {3, and coordinates of 
(2) 
~ 


(3), and (:2)(3) = (} 1 , (3)(4) = 8 2 , (2) (3) = 


I ~ 
I are given, the program find the coordinates 
l 


/ 
r~ 
of points P and Q that yield a specified area 
~ 


s, 
by the segment parallel to (2) (3). 
(3) 
(NOTE) The input conditions above are 


p 
--- 
obtained by the inverse calculation of 


{}, 
(4) 
P4 -C -4. 
{}! 


[Example] 
X 


CD 


2 
v 
~ 
® 
( 
54" 


l= I 
S1= 1 .25 
S,= 1.75 
\ 


!3 =goo 
@ 
K 
X3=0 
y 
Y3= 0 
® 
p 
2 


{},=90° 


{} != 180° 


[ Operation ] 
c LOAD vC18v [illiD 
NOTE) Coordinates are expressed by discarding the 5th 
decimal. 


Input 
Display 
Note 
Input 
Display 
Note 


1 
[IDTl 
~ 
11 
[fijfjj] Q: 
1.5000 0.9999 _l(xQ, JQ) 


2 (X3) 0 
iENTER\ X3= 0 
12 
[fijfjj] Repeat from step 9 on. 
f-.J 


3 (Y 3) 0 
[ENTER\ Y3= 0 
13 


4 (a)116 .3354 [ENTER[ A= 116.3354 
14 


5 (B) 
90 
[ENTER[ B = 90 
15 
6 ({} 1) 180 
[ENTER\ L.. 1 = 180 
16 


7 ({},) 90 
[ENTER[ L.. 2 = 90 
17 


8 (i) 
1 [ENTER[ L = 
I 
18 


9 (S) 
1 .25 [ENTER[ s = 1.25 
h 
19 


10 
p: 0.0000 0.9999 
X (xp, yp) 20 
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Title 
PARALLEL SPECIFIED AREA DIVISION 
PROGRAM NO. 
P4-C-18 


Memory content 


A 1 
v 


8 
2 
x3 
c 3 
y3 
1 0: "A":DEGREE :INPUT "X3= ";s,"Y3= "; C 


D 4 
20: INPUT "A= ";F,"B= ";G,"<1= ";L,"<2= ";H 
,"L= ";fi 
E 5 
30: F=DEG F+E-4:G=DEG G+E-4:J=D 
F 6 
a 
40: INPUT "S= ";I 
50: J=J+I 
G 7 
f3 
60: X=J(M*M-2*J*(1/TAN F+1 /TAN G)) 


H 8 
{)2 
70: N=2*J/(X+M)/SIN G 
80: O=B:P=C:A=DEG H:GOSUB 500 
I 
9 
s 
90: PRINT USING "######.####";"P:";o;p 


"" 
10 
.2'S 
100: N=X:A=DEG L+180:GOSUB 500 
110: PRINT "Q:";Q;p 


K 11 
120: GOTO 40 


L 
{), 
500: O=O+N*COS A:P=P+N*SIN A:RETURN 
12 
266 
M 13 
I 


N 14 
N 


0 15 
x, 


p 16 
Y; 


Q 17 
R 18 
s 19 
T 20 
u 21 
v 22 
w 23 
X 24 
X 


y 25 
z 26 


-133- 


SHARP 


Title 
VERTICAL SPECIFIED AREA DIVISION 
PROGRAM NO. 
P4-C-19 


[ Formula] 


® 


In a city block as shown on the left, when 


Q 
J_.------ (I) 
included angles a, (3, and coordinatesJ:lf 


~ 
(2), (3), and direction angle e of (3) ( 4) 
I 
are given, by dividing with a straight line 
(2) 
I 
vertical to (3) ( 4), the coordinates of points 
c x2 
y2 
P and Q to yield a specified area S0 are 


a 
determined. 


~w~ 


(NOTE) Where angles above a, (3, e are not 
given, they should be found from the 
coordinates of points (I) through (4) by the 


(3) 
inverse calculation ofP4- C- 5. 
X3 
P 
~- (4) 
Points P, Q should be on the right side of (3) 
( y3 


{}z 
(R). 


[ Example] 


S2= 1500 


X 
{}=3°20'18" 


S1= 1629 .664m2 


a= 90°59'50" 
{31=80°14'48" 


(2) 


cx=7o 
(3) ( X=60 
Y=30 
Y=73 
y 


[ Operation ] 
c LOAD 'VC19'V 
[ffiEni 


NOTE) Coordinates are expressed by discarding the 5th 
decimal. 


Input 
Display 
Note 
Input 
Display 
Note 


1 
SH fT 
~ 
11 
tENml Q : 105.6272 37.6342 
fCxQ.YQ) 


2 (X3) 
60 [ENTER[ X3= 60 
12 
[N_IEIL Repeat from step 9 on. 
_j 


3 (Y3) 
73 [ENTER[ Y3= 73 
13 


4 (X2) 
70 [ENTER( X2= 70 
14 


5 (Y 2) 
30 [ENTER( Y2= 30 
15 


6 (a)90 .595 [ENTER( A = 90.595 
16 


7 ({3)80.1448(ENTER( B = 80.1448 
17 


8 ({}2)3 .2018[ENTER( L2=3.2018 
18 


9 ( S) 1629.664 [tiTER] s = 1629.664 
----, 
19 


10 
p: 103.4166 75.5325 (xp.Yp) 20 
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Title 
VERTICAL SPECIFIED AREA DIVISION 


PROGRAM NO. 
P 4- C- I 9 


Memory content 
A 1 
(} -g 0 ,m 


8 
2 
x3 
c 3 
y3 
1 0: "A": DEGREE :INPUT If X3 = II ; B , If y .3 = 11 ;C,"X2 


= II ; D , .. Y2 = II ; E 
D 4 
Xz 
20: INPUT "A= 
11 ;F,"B= ";G,"<2= ";H 


E 5 
Yz 
30: A=DEG H-90:X=D-B:Y=E-C 
40: L=X*COS A+Y*SIN A 
F 6 
a 
50: Y=Y*COS A-X*SIN A 


G 7 
(3 
60: 0=1/(TAN (270-DEG F-DEG G+lt-4)) 
70: J=ABS (L-O*Y) :M=J*Y:N=O 


H 8 
(}2 
80: BEEP 3: INPUT "S= ";I 
90: N=N+I:O=B:P=C 
I 
9 
s 
100: I=2*NH1 


..J 10 
h 
110: Y=(-J+JABS (J*J+O*l)) /Q 
120: X=O*Y+J:A=DEG H:GOSUB 500 


K 11 
N 
130: PRINT USING "tl#####.###ti";"P:";o;p 


L 12 
v 
140: A=A-90:Y=X:GOSUB 500 
150: PRINT "Q:";o;p 
M 13 
-2 s 
160: GOTO 80 


N 14 
2S 
500: O=O+Y*COS A:P=P+Y*SIN A:RETURN 
339 


0 15 
X; 


p 16 
Y; 


Q 17 
m 


R 18 
s 19 
T 20 
u 21 
v 22 
w 23 


X 24 
6X 


y 25 
6Y 


z 26 


-135- 


SHARP 


PROGRAM NO. 
Title 
LONGITUDINAL CURVE (QUADRATIC PARABOLA) P4-C-20 


[ Formula] 


By changing the value of x, the value of y is obtained. 


~ 


a 


i 2 
( i !± i 2 ) x2 
Y2 
,, 


y = 


20 0 L 


/ 
X! 
=~ 
~ 
X3 J 
X 2 2 


( idi2)•L 
L 
Meanwhile, M = 
(x=-) 
I 
800 
2 
L 


[Example] 


j 1 = 5.5% 
Input- sign when i 1 - 
i2 • 


i2=-4.3% 


L = 40.0 m 


;,~,~~ ~ 


X1 = 8m 
Y1= 0.0784 


X2 = 12m 
Y2= 0.1764 


=4.3 


X3 = 20m 
Y3 = M = 0.49 
'X!./_/ 
/ 
""' 
~ 
x2 


~ X3 
.40m 


NOTE) The value of y is expressed by 
discarding the 5th decimal. 
[ Operation ] 
c LOAD v C 2 0 v [ENTER[ 


Input 
Display 
Note 
Input 
Display 
Note 


1 
I SHFT[ 
I!] 
11 


2 ( j I) 
5.5 [ENTER[ 
I I= 5 .5 
12 
3 (i 2)-4.3[ENTER[ 12=-4.3 
13 


4 ( L) 
40 [ENTER[ L = 40 
14 


5 (X) 
8 
[®!] X= 8 
... 
15 


6 
Y= 
0.0784 
16 


7 
[ENTER I Repeat from step 5 on. 
17 


8 
18 


9 
19 


10 
20 
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Title 
LONGITUDINAL CURVE (QUADRATIC PARABOLA) 


PROGRAM NO. 
P4- C-20 


Memory content 


A 1 
z 1 
8 
2 
i 2 
c 3 
L 
10: "A":INPUT "I1= ";A,"I2= ";B,"L= ";C 
20: D=(A-8) I ( 200*0 


D 4 
i 1+ j 2 
30: INPUT "X= ";E 
200L 


E 5 
40: F=E*E*D 


X 
50: PRINT USING "#tl####tl.ti###";"Y=";F 


F 6 
y 
60: GOTO 30 


G 7 
104 


H 8 


I 
9 


J 10 
K 11 


L 12 


M 13 


N 14 


0 15 
p 16 


Q 17 


R 18 
s 19 


T 20 
u 21 
v 22 
w 23 
X 24 
y 25 
z 26 
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SHARP 


PROGRAM NO. 
Title 
INTERSECTING POINTS OF CIRCLE AND LINE 
p 4- c- 2 1 


[ Formula] 


- 
This program is intended to determine the 


X 
intersecting points P, Q of a straight line running 


Xo 
P, 
through points P 1 , P 2 , or a line running through 
Yo 
R 
X, 
a point P 1 and having a direction angle of a, and 
l0Q 


Y, 
a circle of which center is P 0 and radius is R. 


PI 


/ 
XI 
yl 


X 


[Example] 


XI=- 50 
Po 
~ 
Yl= 
0 
50 
-----~-»( 
X,= 
50 
Xp= 
0 
Y,= 100 
Yp = 
50 


Xo= 
50 
XQ = 
50 
v~ 


100 
y 


Yo= 
50 
YQ = 
100 


R= 
50 
PI -50 


a= 
45 ° 


[ Operation ] 
c LOAD \7 c 2 1 \7 
[ENTER[ 


@program: 
Calculation from two points 


~program: Calculation from one point and one direction angle 


NOTE) Coordinates are expressed by discarding the 5th decimal. 


Input 
Display 
Note 
Input 
Display 
Note 


1 
I SHFT I 
@ 
(In the case of 2 points, 
11 
lli!JJ 
~l 
1 (In the case of a point, 


(Xo) 
[£ITER' 


and a circle) 
(Xo) 
50 [ENTER[ Xo- 
50 
a direction, and a circle) - 
2 
50 
Xo= 
50 
12 


3 (Yo) 
50 [ENTER[ Yo= 
50 
13 (Yo) 
50 mrn Yo= 
50 


4 (R) 
50 [UTERI R = 
50 
14 (R) 
50 [EllER[ R = 
50 


5 (X 1)-50 [00!!1 XI=- 50 
15 (XI) -50 [EllER[ XI- -50 


6 (Y 1) 0 
[£ITER] Yl= 
0 
16 (Y I) 0 
[£ITER[ Yl= 
0 


7 ex·,) 
50 l!!illl X,= 
50 
17 (a) 
45 [ENTER; A= 
45 


8 (Y ,) 100 [[i[Rl Y,= 
100 
18 
p : 0.0000 49.9999 


9 
p : 0.0000 49.9999 
(xp 'yp) 19 
l!!illl Q: 50.0000 100.0000 


10 
[UTERI Q: 50.0000 100.0000 
(XQ .YQ) 20 
-138- 


Title 
I NTE RSECTI NG POINTS OF CIRCLE AND LINE 
PROGRAM NO. 
P4-C-21 


Memory content 


A 1 
Xo 


B 2 
Yo 
c 3 
R 
10: "A":J=O:GOTO 30 
20: "B":J=1 


D 4 
X1 
30: DEGREE :INPUT "XO= ";A,"YO= ";B,"R= "iC 


E 5 
yl 
40: INPUT "X1= ";D,"Y1= "iE 
50: IF J<>OINPUT "A= "iH:H=DEG H:GOTO 90 


F 6 
x2 
60: INPUT "X2= ";F,"Y2= "iG 


G 7 
70: X=F-D:Y=G-E:GOSUB 500 


y2 
80: H=X 
H 8 
(}/) 
90: X=A-D:Y=B-E:GOSUB 500 
100: K=H*SIN (X-H) 


I 9 
110: l=ACS (K/C) 
J 10 
CD 
120: M=H-90-L:N=H-90+l 
130: GOSUB 600 


K 11 
h 
140: PRINT USING "####tJ#.####"i"P:"iOiP 


L 12 
a 
1 so: M=N:GOSUB 600 
160: PRINT "Q:"iOiP 


M 13 
Qp 
170: END 


N 14 
~ 
500: W=f( X*X+Y*Y) 
510: X=ACS <X/H) :IF Y<OLET X=360-X 
0 15 
Xp, XQ 
520: RETURN 


p 16 
Yp, YQ 
600: O=A+C*COS M:P=B+C*SIN M:RETURN 


335 
Q 17 
R 18 
s 19 


T 20 
u 21 
v 22 
w 23 
L 
X 24 
L-.x,(} 


y 25 
6Y 


z 26 
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SHARP 


l 


PROGRAM NO. 
Title 
RADIAL AREA CALCULATION 
p 4- c- 2 2 


[ Formula] 


• Given angle and distance. Calculate the area. 


1 
• The area is calculated by the double meridian 


5 
distance method. 


l 1 
• When only relative coordinates are needed, the 
angle may be measured from any direction. 


I 


l 2 
2 


4 


3 


[Example] 


1 
37.2030 
DX= 
12.0232 
a1= 
a1 
ll= 15.123 
DY= 
9.1731 
4 
l 
a2= 135.4123 
DX =- 14.6376 


I 2= 20.456 
DY= 
14.2894 


a3 = 232.4521 
DX=- 6.5296 


13 = 10.789 
DY=- 8.5887 


3 
a4= 310.1225 
DX= 
7.8272 
2 
14= 12.125 
DY=- 
9.2600 


s = 417.965242 


[ Operation ] 
c LOAD '7C22'7 
!ENTER I 


~program: For data input 
NOTE)• DX, DY are expressed by discarding the 


[§] program: 
For area calculation 
5th decimal. 


• The area is expressed by discarding the 7th 
decimal. 


Input 
Display 
Note 
Input 
Display 
Note 


1 
I SHFTI 
~ 
11 (A)3IO.I225 ~ 
A= 310.1225 


2 (A)37.2030iENTE~ A= 37.2030 
12 (L) I~ .125 [ffi L= 12.125 


3 (L)15.1231ffi~l L = 15.123 
13 
[ENR1 
7.8272 -9.2600 


4 
lilllRI 
12.0232 9.1731 
(DX,DY) 14 Finally 


5 (A)I35.4I23 [@ A= 135.4123 
15 
I SHFT I [§] 
s = 417.965242 


6 (L) 20 .456 (ijill1 L = 20.456 
16 


7 
I ENTER I 
-14.6376 14.2894 
17 
8 (A) 232. 4521 ["E]ill] A= 232.4521 
18 


9 (L) 10. 789[NTER, L = 10.789 
19 


10 
IENTERij 
-6.5296 -8.5887 
20 
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Title 
RADIAL AREA CALCULATION 
PROGRAM NO. 


p 4- c- 2 2 


Memory content 


A 1 
.zs 


8 
2 
c 3 
X;-I 
10: "A" :DEG.REE :CLEAR 
20: BEEP 2:INPUT "A= ";A,"L= ";L 


D 4 
Y;-I 
30: X=L*COS DEG A:Y=L*SIN DEG A 


E 5 
DX 
40: IF J=OLET J=1:C=X:G=X:D=Y:H=Y 
50: E=X-C:F=Y-D 


F 6 
DY 
60: GOSUB 500 


G 7 
xs 
70: C=X:D=Y 
80: PRINT USING "###t!###.###:t";X,Y:GOTO 20 


H 8 
YS 
90: "B":E=G-C:F=H-D 


I 
100: GOSUB 500 


9 
110: A= ASS S/2:T=A*.3025 


J 10 
Discriminator 
120: PRINT USING "#######.t:!#####";"S=";r.. 
130: GOTO 120 


K 11 
500: f•1=rHF 


L 12 
510: S=S+E*r·l 
520: t-1=r1+ F: RETURN 


M 13 
M 
242 
N 14 
0 15 
p 16 


Q 17 
R 18 
s 19 
2' 2 s 


T 20 
u 21 
v 22 
w 23 
X 24 
X; 


y 25 
Y; 


z 26 
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SHARP 


Title 


PROGRAM NO. 
OPENING SPECIFIED DIVISION CALCULATION 
P4- C-23 


[ Formula] 


(A) Parallel division 
(B) Vertical division 
(C) Division with interval 


Q ~--CD 
~..-CD 
®~%Q" 
®~Q~ 
®Vs!. Q""~ 
CD 
~~ 
r/~~ ~~~ 
/ 
/ 
~ . J 
VSYvS2( 
v'~ 
~~2~ 
~~P2 
~~ 
®I 
K~ 
CD 
~ 
~~ 
CD 
® 
- 
® .__ l /f"- l ../, 
..__ l ('' l2/ 
CD 
I p) 
2 


In the three cases above (A), (B), (C), points P, Q and areaS are found by successively 
giving measure points (1) to ( 4) and l. 


[Example] 


®t 


If 
I~ 
(XI= 10.972 
IQ 
I Q' 


CD 
I 
Y1= 32.494 


I 
I 
( X2= 11.905 
I 
I 
I 
I 
Y2= 8.863 
I 
s~ 
I 
S2 
I 
I 
I 
( X3= 22.668 


I 


Jp 
P' 
Y3= 9.178 


.J 


CD 
® '-........ 9m/1"""-8m /1 
( X4 = 25.182 
Y 4 = 33.055 


[ Operation ] 
ll = 9 


c LOAD vC23v 
[ENTER[ 


~ program: 
Parallel division 
NOTE) • Coordinates are expressed by discarding 


~] 
Vertical division 
the 5th decimal. 
program: 
• The area is expressed by discarding the 7th 


[g program: 
Division with interval 
decimal. 


Input 
Display 
Note 
Input 
Display 
Note 


1 
I SHFT I 
~ PARA 
11 
p : 11.5499 
17.8560 


2 (X I) I 0 .972[ENTER[ XI= 10.972 
12 
lffi(R] Q : 23.6189 
18.2092 


3 (Y I) 32. 494lffi!R] yl = 32.494 
13 
[ENTER[ s = 102.782605 


4 (Xz)ll.905[ENTER[ X2= 11.905 
14 
(ENTER[ Repeat from step 10 on. - 


5 (Y2)8.863 [EllER] Y2= 8.863 
15 


6 (X 3)22,668[ENTER[ X3= 22.668 
16 
I SHFT I ~ 
Same operation for vertical division 


7 (Y3)9.178 [ENTER[ Y3= 9.178 
17 


8 (X 4)25 .182[lli~ X,= 25.182 
18 
[Sffi] 
[g 
Same when interval is applied 


9 (Y ~ 33 .055[ENTER) y ,= 33.055 
19 


10 ( l) 9 
[ENTER[ L = 9 
.., 
20 
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PROGRAM NO. 
Title 
OPENING SPECIFIED DIVISION CALCULATION 
P4-C-23 


Memory content 


A 1 
v 


8 
2 
v 
c 3 
v 
10: "A":PAUSE "PARA":D=O:GOTO 40 
20: "B":PAUSE "VERT":D=1:GOTO 40 


D 4 
J 
30: "C"PAUSE "MOVE":D=2 


E 5 
x, 
40: INPUT "X1= ";E,"Y1= ";F,"X2= ";G,"Y2= " 
iH 


F' 
6 
Y, 
SO: INPUT "X3= ";I,"Y3= II iJ ,"X4= ";K,"Y4= " 


G 7 
Xz 
;L 


60: X=E-G:Y=F-H:GOSUB 500 


H 8 
Yz 
70: N=X:X=I-G:Y=J-H:GOSUB 500 


I 
9 
x, 
80: O=X:X=K-I:Y=L-J:GOSUB 500 
90: P=X:IF D=1LET O=N-90 
..J 10 
y3 
100: V=O:W=O 


K 11 
x4 
110: BEEP 3: INPUT "L= 
II iM 


120: IF D=2LET M=M/COS CN-0-90) 


l 
12 
y4 
130: W=W+M 


M 13 
f , f I 
140: Q=G+W*COS N:R=H+W*SIN N 
150: X=TAN (0+£-4):Y=TAN (P+£-4) 


N 14 
(}, 
160: T=(X*O-Y*I-R+J)/(X-Y) 


0 
(}2,(} 
170: U=R+X*CT-Q) 
15 
180: X=Q:GOSUB 600 


p 16 
(}3 
190: Q=X:X=R:GOSUB 600 


Q 
200: R=X:X=T:GOSUB 600 
17 
Xp 
210: T=X:X=U:GOSUB 600 


R 18 
YP 
220: U=X:PRINT USING "######.####"i"P:";Q;R 
230: PRINT "Q:"iTiU 
s 19 
.[; s j 
240: S=(Q*(H-U)+G*(J-R)+I*(U-H)+T*(R-J))/2 
T 20 
XQ 
250: Z=S-V:V=V+S 
260: PRINT USING "tltlll####lltl.lltl#lltl#"i"S="iZ 
u 21 
YQ 
270: GOTO 110 


v 22 
..E S;-I 
500: Z=J(X*X+Y*Y) 
510: X=ACS (X/Z):IF Y<OLET X=360-X 
w 23 
.Et 
520: RETURN 
X 24 
LX, m1 
600: X=SGN X*INT ABS (X*E4+SGN X*.S)/£4: 


RETURN 
y 25 
h. Y, mz 
617 
z 26 
r . s; 
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SHARP 


Title 
PROGRAM NO. 
CLOSED AND FIXED TRAVERSE (COMPASS RULE) P4-C-24 


[ Formula] 
After the input of initial data, entering the included angle 


I 
and distance at each point, this program is intended to find 
X 


I 
I 
TA 
the angle, error of closure in latitude and departure, sum of 
I, 
13 


!3. 
/33 


distance, and accuracy. 


XA 
(:3, 
Also, using the result of calculation of the error of closure, 
YA 
!32 
12 
the angle is distributed evenly and the error of coordinates 


I, 
are distributed according to the compass rule. 
The obtained coordinates are stored in the memory. 
Maximum measure points should be 12. 


Error of closure in latitude 
.I;/'., X; =EX 


Error of closure in departure 
.I;/'.,Yz =EY 


Sum of distance 
.I; l i 


Accuracy 
.I: l, /v C .I:6X1 ) 2 + ( .I:6Y; ) 2 


Corrected total latitude 
X, = Xi-1 + 6X,. 
f I 
+---Ex 
.I; l i 


Corrected total departure 
Y,. =Yi-1 +6 Y1 


l i 
+--EY 


.I; l i 


[ Example] 


1TA= 230° 
Error of closure in angle 
5" 
I 
Error of closure in latitude 


'i::J~ 
9s. 5111 


5.970 m 


l>.~ 
I 
® 
Error of closure in departure 
7.541 m 
~- 
119. 24' 


XA=Om 
60.10'10" 
55°20'2511 
Accuracy 
39 


YA=Om 
125. 5' 30" 
r::-,'0~ 


85.]23 
~~~ 
111 
CD 


[ Operation ] 
NOTE) • Coordinates are expressed by discarding the 4th 


1ENTER] 
decimal. 
c LOAD v c 2 4 v 
• Accuracy of oo results in error, but the operation 
can be progressed to next step by pressing~ key. 


Input 
Display 
Note 
Input 
Display 
Note 


1 
l}[[rj 
~ 
11 ({3) 125 . 053[ ENTER I B = 125.053 


2 
I 
[ENTER[ C/F = 1/0 I 
Input 1 when 12 
used, 0 when 
( l) 105.05 [EN.ill] L = 105.05 


3 (TA)230 
[ENTER[ TA = 230 
fixed. 
13 ({3) 55.2025[ENTER[ B = 55.2025 


4 (XA) 
0 
[ENTER[ XA= 0 
14 (l )95 .5 
!ENTER[ L = 95.5 


5 (YA) 
0 [~ YA= 0 
15 ({3)119 .24[ENTER[ B = 119.24 
ln = 0 when 


~' (TB)230 
( l )90 .456 [ENTER[ L = 90.456 
( Note) 
fixed. 


i.lli® TB = 230 
\ 
~~nput only 16 
' 
when fixed 
J (XB)59.580 tENTER] 


I 
IS!illl ill 
XB = 59.580 
I 
17 
T.B ~ 360.0005 


8' (YB) 7 1.1 07 [ijlliil YB = 71.107; 
J 
18 
[ENTER[ EB = 0.0005 


9 ({3) 60.10 I 0 :Eillft] B =60.1010 
19 
IENTERi TL = 376.129 


10 (I ) 85. 123 . 


1ENTERI L 
= 85.123 
20 
ENTER[ EX=5.970 EY=7 .541 
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SHARP 


Title 
RULE)I 


PROGRAM NO. 
CLOSED AND FIXED TRAVERSE (COMPASS 
p 4- c- 2 4 


(An example of closed traverse) 
input 1 when the display is C/F = 1/0. 


No. 
Included 
Distance 
Angle 
Direction 
Latitude 
Departure 
Total 
Total 
angle 
correction 
angle 
correction 
correction 
latitude 
departure 


TA=230° 
XA=O m 
YA=O m 


I 
60°10' 10 
11 
85.123m 
-I" 
110°10 
109 
11 
- 
1.351 
- I. 707 
-30.701 
78.196 


2 125° 5'30 
11 
105.05 
-2" 
55°15'37" -1.667 
-2.106 
27.495 
162.415 


3 
55°20'25" 
95.5 
-I" 
290°36'01 
11 
- 
1.516 
- 
1.914 
59.580 
71.107 


4 119°24' 
90.456 
-I" 
230° 
- 
1.436 
- 
1.814 
0 
0 
-5" 
-5.970 
-7.541 


(An example of fixed traverse) 
Input 0 when the display is C/F = 1/0. 


No. 
Included 
Distance 
Angle 
Direction 
Latitude 
Departure 
Total 
Total 
angle 
correction 
angle 
correction 
correction 
latitude 
departure 


TA=230o 
XA=Om 
YA=Om 


I 
p0°10' 10 
11 
85.123 
-- I 
110.1009 
-1.351 
- I. 706 
- 30.701 
78.197 


2 125°05'30" 
105.05 
-2 
55.1537 
- 
1.667 
-2.106 
27.495 
162.416 


3 
55°20'25" 
95.5 
-I 
290.3601 
-1.516 
-1.915 
XB=59 .58 YB=71.107 


4 119°24' 
ln=O 
-I 
TB=230 


BJ program: 
For start of closed and fixed traverse 


181 program: 
For error calculation 


~I program: 
For output of results 


lDi program: 
For correction 


Input 
Display 
Note 
Input 
Display 
Note 


1 
Jim! ACCURACY = 39 
11 Correction 


2 
[lH_ill 
~~ 
B60.1010 L 85.1230 
12 
[SHf] 
~ CORRECT 


3 
[ENTER] EB~- 0.0001 A~ 110. 1009j 
13 
(no) 
[ENTER: NO=' 


4 
ENTER C= -0.344 ·· 5=0.9386 ·· 
14 ((3) 
~NHRj B 
~ 
I 


5 
ENTER EX-1.351 DX- 
~9.350 
15 U) 
r£Nr[~ L 
-- 
I 
--- 


6 
ENHRi EY--1.707 DY 79.903 
16 
Repeating from step J 4 
__j 


permissible. 
7 
--- 
X -30.701 y 78.196 
(X,Y) 
17 
'111!ER, 


8 
Repeat 
1 B 


9 
19 


10 
20 
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Title 
CLOSED AND FIXED TRAVERSE (COMPASS RULE) I PROGRAM NO. 


p 4- c- 2 4 


Memory content. 


A 1 
i 


8 
2 
v 
1 : U=21+2*A:RETURN 
2: B=SGN B*INT ABS (B*E3+SGN B•.S)/(3: 
c 3 
EfJ 
RETURN 


D 4 
3: B=DEG (DMS 8-INT {OMS B/360)*360): 
n 
RETURN 
E 5 
A 
(])For correction 
4: U=SGN U*INT ABS CDMS {U+SGN U*.00014)*l 
4)/E4:RETURN 


F 6 
B 
5: E=E-C/D:B=E-F 


G 7 
TB 
c 
6: U=B:GOSUB 4 
7: B=DEG U:F=B+F:U=DEG U 
H 8 
XB 
D 
8: B=B+K+DEG L+180:GOSUB 3 


I 
9 
YB 
E 
9: PAUSE A:K=B:RETURN 
10: "A" :DEGREE :INPUT "C/F=1/0 "iQ 


~ 10 
.£{3 
F 
20: IF Q<>OPAUSE "CLOSE":GOTO 40 


K 11 
a; 
30: PAUSE "FIX" 
40: INPUT "TA= ";R,"XA= ";S,"YA= "iT 


L 12 
{3; 
50: IF Q<>OLET G=R:H=S:I=T:GOTO 70 
M 13 
l i 
60: INPUT "TB= ";G,"XB= ";H,"YB= "il 
70: J=O:A=1:E=O 


N 14 
I l ; 
80: BEEP 2:PAUSE A:INPUT "B= ";L,"L= "; r,, 


0 15 
I 6X , EX 
90: GOSUB 1 
100: IF E<>OLET J=J-DEG ACU) 


p 16 
I 6 Y , EY 
110: J=J+DEG L 


Q 17 ® v 
120: A(U)=L:U=U+1:ACU)=M 
130: A=A+1:IF E<>OGOTO 80 


R 18 
TA 
140: V=A:GOTO 80 


s 19 
150: "B":D=V-1 
XA 
X; 
160: B=J+D*180+DEG R:GOSUB 3 
T 20 
YA 
Y, 
170: C=B-DEG G 
- 
180: IF ASS C>180LET C=C-SGN C*360 
u 21 
I 
' 
c;f} 
190: U=J:GOSUB 4 
v 22 
i+l 
200: PRINT USING "#tl###tltl.tltltl#"i"T.B="iU 
210: U=C:GOSUB 4 
w 23 
(3, 
X, 
220: PRitH "EB="iU 


X 24 
l 1 
Y, 
230: K=DEG R 
240: E=O:F=O:O=O:P=O:N=O 
y 25 
/32 
X2 
250: FOR A=1TO D 
. 
z 26 
l 2 
y2 
260: GOSUB 1 
270: L=A(U):U=U+1:M=A(U):GOSUB 5 
280: N=M+N:B=M*COS K:GOSUB 2 


No. of memories = 
290: O~O+B:B=M*SIN K:GOSUB 2 
300: P=P+B:NEXT A 
( 1424-1257 )/8+26 
310: O=S+o-H:P=T+P-I 
~ 


Max. steps used 
320: PRINT USING w#tl####fltl.flfl#"i"TL="iN 
330: PRINT USING "#tl#fl.fl##"i"EX="iOi" EY="iP 


Measure. No. of memories - 22 
340: O=-O/N:P=-P/N:U=1/J(O*O+P*P) 
points 
2 
350: PRINT USING "##llfl##flfltl###" i"ACCURACY=";U: 
=;::: 12 
END 
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Title 
FIXED TRAVERSE (COMPASS RULE) 
PROGRAM NO. 
CLOSED AND 
P4-C-24 


Memory content 


A 1 


8 
2 
c 3 
360: "D" :PAUSE "CORRECT" 
370: E=1:INPUT "NO= ";A:GOTO 80 


D 4 
380: "C":K=DEG R:E=O:F=O:G=O:H=O:I=Q:J=O 


E 5 
390: FOR A=1TO D 
410: GO SUB 1 


F' 
6 
420: L=A(U) :U=U+1:M=A(U):GOSUB 5 
G 7 
430: GO SUB 4 
440: Q=U:U=B:GOSUB 4 
H 8 
450: BEEP 1:PRINT USING "#####.####";"s";L;" 


I 
9 
L";M 
460: PRINT USING "####.####";"EB=";Q;" A=";u 
J 10 
470: IF M=OEND 


K 
480: G=O*r-HG: I=P*M+I 
11 
490: Q=COS B:U=SIN B 
L 12 
500: PRINT USING "##.######";"C=";Q;" S=";u 


M 
510: B=G-H: GO SUB 2 
13 
520: U=B:H=H+B:B=M*COS K:GOSUB 2 
N 14 
530: PRINT USING "#####.###";"EX";u;" DX";B 
540: S=S+B+U:B=I-J:GOSUB 2 
0 15 
550: U=B:J=J+B:B=M*SIN K:GOSUB 2 
p 16 
560: PRINT "EY";u;" DY" ;s 
570: T=T+B+U 
Q 17 
580: PRINT USING "######.###";"x";S;" Y" ;T 
R 18 
590: GO SUB 1 
600: A(U)=S:U=U+1:AC:U)=T 
s 19 
610: NEXT A 
T 20 
620: END 


1260 
u 21 
v 22 
w 23 


X 24 
y 25 
z 26 
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SHARP 


Title 
DIAGONAL AND PERPENDICULAR AREA 
PROGRAM NO. 
CALCULATION 
p 4- c- 2 5 


[ Formula] 


(I) 
Successively inputting the 


~'',,, 


coordinates of three points or 
three side lengths, the area of each 


a 
triangle is determined sequentially. 
' ' 
/ 
(L/-s-4 c 
p-------- 
S = / s ( s-a) ( s -b) ( s -c ) 


' 


(2) "'-- 
h -- 
r 
' ' 
a+b+c 
' ' ' 
s= 


' ' 
2 
~ 
' 
b 


(3) 
Diagonal and perpendicular method 
area calculation 


S'=l___hL (L: longest side of 
2 
a,b,c) 


[Example] X 
The height is expressed by 
discarding the 3rd decimal. 
I 
@ (X 3= 16 
Y3=8 


a' 


I 
a= 7.211 
d = 12.166 
a 


sl/ 
@ 
b = 8.944 
b' = 13.416 


Sz 
c = 12.166 
c' =II .662 
2 
ex·= 10 
(Xz=8 
c' 
Y4=20 
Yz=4 b 


CD (x~=4 
Y1=IO 


y 


[ Operation ] 
c LOAD '7C25'7 I ENTER I 
NOTE) Side length is expressed by 


~program: Calculation from input of coordinates 
discarding the 4th decimal. 


~program: Calculation from input of side lengths 


Input 
Display 
Note 
Input 
Display 
Note 


1 
iSH FT I 
~ 
11 
lEITER( TS=31 .996580 
~ 


2 (Xl) 4 
IEITERj X1= 4 
I- 
12 
[ENTER! 
Repeat from step 2 on. _j 


3 (Y 1 ) 10 
lEITER( Y1= 10 
13 


4 (Xz) 8 
[@ X2= 8 
14 
I SHFTI 
I~ 


5 (Y z) 4 
IENTEHI Yz= 4 
15 (A)7.211 [EllER I A= 7.211 
1- 


6 (X3) 16 
lEITER I X3= 16 
16 (B)8.944 [®!I B= 8.944 


7 (Y3) 8 
IEmRI Y3= 8 
17 cc)12 .166 lm c = 12.166 


8 
A= 7.211 B = 8.944 
18 
Same as step 8 and after. 


9 
lEmHI C = 12.166 H= 5.260 
19 
r-- 


10 
lEmHI s = 31 .996580 
~ 
20 
Repeat from step 15 on. 
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DIAGONAL AND PERPENDICULAR AREA 
PROGRAM NO 
Title 
CALCULATION 
p 4- c- 2 5 


Memory content 


A 1 
(a) 


8 
2 
(b) 
c 3 
X1 
(c) 
10: "8" :PAUSE "A,s,c IN": f-1=1 : K=O 
20: INPUT "A= ";A,"B= ";B,"C= ";C:GOTO 90 


D 4 
yl 
30: "A" :PAUSE "P1 ,p2,P3 IN": ~1=0: K=O 


E 5 
Xz 
40: INPUT "X1= ";C,"Y1= ";D,"X2= ";E,"Y2= " 


;F,"X3= ";G,"Y3= ";H 


F" 
6 
Yz 
50: X=E-C:Y=F-D:GOSUB SOD 


G 7 
x3 
60: A=X:X=G-E:Y=H-F:GOSUB SOD 
70: B=X:X=C-G:Y=D-H:GOSUB SOD 


H 8 
y3 
80: C=X 


I 
90: X=C:IF A>XLET X=A 
9 
~ 
100: IF B> XL ET X=B 
J 10 
( h ) Round-off 
110: I=( A+B+C) /2 
120: S=f(I*(I-A)*(I-B)*(I-C)) 
K 11 
27S 
130: J =INT ((2*S/X)*E3)/E3 
L 12 
v 
140: L=X:GOSUB 600 


M 
150: X=L;S=X*J/2:K=K+S 
13 
For discrimination 
160: L=A:GOSUB 600 


N 14 
170: A=L:L=B:GOSUB 600 


0 15 
180: B=L:L=C:GOSUB 600 
190: C=L 


p 16 
200: PRINT USING "#####.###";"A=";A;" 
B=";B 
210: PRINT "C=";c;" 
H=";J 
Q 17 
220: PRINT USING "tltl#tl###tltl.#tl##tlti";"S=";S 


R 18 
230: PRINT "TS=";K 
240: IF M=OTHEN 40 
s 19 
s 
2SO: GOTO 20 


T 20 
500: X=J< X*X+Y*Y) 
S10: RETURN 
u 21 
600: L=INT (L*E3+.5) /E3 


v 22 
610: RETURN 
S29 
w 23 
X 24 
L:iX 
(L) 
y 25 
L:iY 


z 26 
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SHARP 


Title 
GIRDER LOAD TERMS CALCULATION PROGRAM 
PROGRAM NO. 


FOR REINFORCED CONCRETE CONSTRUCTION 
P4-D-1 


[ Formula] 


This program calculates the load terms of tortoise-shaped girders in the preparatory stage of 
structural calculations of reinforced concrete construction. (See shaded parts below.) 
The shape should included the four kinds shown below. 


CD 
® 
@ 
G) 


Column 
Beam 
Column 
Beam 


ColnmnCJ 
' 
' . 
Floor slab 
' 
' 
' 


Floor slab ~ [il] 
Flom •bb • 


l4fli I'ICI"IIIl>illl rl- 


Girder 
Girder 
Girder 
Girder 


Plans of tortoise-shaped girders 


Program of shape ( 1) is defined as ~ 


Program of shape (2) is defined as ~ 


Program of shape (3) is defined as [g 


Program of shape ( 4) is defined as [Q] 
The "type" means the load shape at 
Clear of cumulative memory is defined as [Q] 
both sides of the girder (including 


Output of C, Mo, Q is defined as [EJ 
the load value): input 1 when the 
type is the same, and 2 when different. 


[ Operation ] 


c LOAD 
VDJV 
(ENTER] 


Input 
Display 
Note 
Input 
Display 
Note 


1 
11 


2 
12 


3 
13 


4 
14 


5 
15 


6 
16 


7 
17 


8 
18 
9 
19 


10 
20 
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SHARP 


Title 
GIRDER LOAD TERMS CALCULATION PROGRAM I PROGRAM NO. 
FOR REINFORCED CONCRETE CONSTRUCTION 
P 4- D- I 


(A) Calculation formula for each shape 


(a) 


l 
l 
2 
2 


(b) 


Wo 


l 
w =Wo x 2 


5 w l 2 
c --- 
96 


w l 2 


Mo=J2 


w l 
Q =- 
4 


ly 
w 
=Wo x- 
2 
ly 
a=- 
2 


C: 
fixedendmoment (t·m) 


Mo: moment in the case of simple support 


Ct·m) 


Q: shearing force in the case of simple 
support ( t) 
Wo: unit weight per 1m2 of floor (t/m 2 ) 
w: unit weight per 1m of floor (t/m) 
l : span of girder to be determined (m) 
ly: slab width charged on girder to be 
determined (m) 


Ul/11 11/11\ 


Bw: unit weight of beam (t/m) 
Gw:unit weight of girder (t/m) 
N: number of beams 


_0!_~ 


2 
l 


(c) 


Mo = ( 3 F- 4 a 2 ) X w/ 2 4 


!-a 
Q =--w 
2 


l 
w =WoX-4 


Jt 


~. 


YThis area 30 


l y 
l 
l 
I 
P=B x-+Wox[(-x-x-) 
w 
2 
2 
4 
2 


l y 
l 
l J 
+ (---) x- 
2 
4 
2 


= Bw X l y 
12 
l y 
l 
l 
+Wo x (-+ (---) x- J 
1 6 
2 
4 
2 
2 
1 7 
p l 
C = -- w/ 2 +-- 
3 84 
8 


w / 2 
p l 
Mo=--+-- 
1 6 
4 


Input 
Display 


2 
[ffi!1 
~ SPAN 


3 (!) 6 
I ENTER I WIDTH 


[ENTER I SLAB W 


5 (Wo) 1 
[[Nilll GIRDER W 


6 ( Gw ) 1 
[illfRI TYPE 


7 
2 
IENTERJ > 


8 
[~_11] 
[EJ 
8.62 13.50 7.50 


10 


wl 
P 
Q = --+- 
4 
2 


Note 
Input 


Memory 
clear 
11 
[ill] 
~ 


12 
liD!l 
~ 


13 (!) 6 
LEIITEIIJ 


14 (l y) 6 
[illlRJ 


15 (Wo) I 
liTIE!J 


16 ( Gw) I 
~IITERi 


17 
I 
[lliE]J 


18 


19 


20 
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Display 
Note 


SPAN 
FUTAN HABA 
SLAB W 


14.25 22.50 12.00 


SHARP 


Title 
GIRDER LOAD TERMS CALCULATION PROGRAM 
PROGRAM NO. 
FOR REINFORCED CONCRETE CONSTRUCTION 
P4-D-1 


(d) 


p 


17- 
lllllwo 
~ 


3 
l 


l 
w= Wo X-6 


I-7-R· 


ly 
c l 
l 
1 
ly 
l 
l 
P = Bw X-+ W o X 
( - X -- X- ) + (- -- ) X- J 
2 
362 
2 
6 
3 


:& 
::0: 


~ 


l 
·I 


Bw X l y 
z2 
ly 
l 
l 
= 
+Wo X[-+(---) X- J 
2 
3 6 
2 
6 
3 


~ 
~ J 


37w [ 2 
2Pl 
c =-- +-- 
864 
9 
7wl 2 
Pl 
(a) to (d) refer to the values ofC, Mo, Q of 
Mo=-- +-- 
the slab part. 
1 0 8 
3 


Q 
wl 
=-+P 
4 


(e) Girder weight 
G 


I 111-h1 w 
Gw ! 2 
Gw 1 2 
Gwl 
C=-- 
Mo=-- 
Q=-- 
1 2 
8 
2 


I~ 
l 


-+ 


Input 
Display 
Note 
Input 
Display 
Note 


1 
11 


2 
12 


3 
13 


4 
14 


5 
15 


6 
16 


7 
17 


8 
18 
9 
19 


10 
20 
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SHARP 


Title 
GIRDER LOAD TERMS CALCULATION PROGRAM 
PROGRAM NO. 
FOR REINFORCED CONCRETE CONSTRUCTION 
P 4- D- I 


-r:: Use program~ 


Memory clear 


irE [~~~}o ~ J.Oum' 


I SHFTI [g] 


I SHFT( ~ 
SPAN 


6 (ENTER( WIDTH 


6 
[fill~ SLAB W 
I Gw =I .0 I 
t/m 
1 [ENTER I GIRDER W 
l =6.0m 
1 [ENTER( TYPE W 
, 


2 (ENTER( > 


I SHFT( [f] 
8.62 
I3.50 7.50 


1 
1 
1 
c 
Mo 
Q 


t--- 


ly= 6.0m 
Wo = I.O t/m2 


ISH FT I [g] 
. 
lA 
~ 
I SHFT( ~ 
SPAN 
['---- 
I~ 
UJY 
WIDTH 
6 (ENTER) 


ly= 6.0m 
6 (ENTER( SLAB W 


Gw= I.O 
t/m 
1 (ENTER( GIRDER W 


~ 
1 (ENTER( TYPE W 


l~l=6.omJ 


1 (ENTER( I4.25 22.50 I2.00 


Input 
Display 
Note 
Input 
Display 
Note 


1 
11 
2 
12 
3 
13 
4 
14 


5 
l!i 


6 
16 


7 
17 


8 
18 
9 
19 


10 
20 
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SHARP 


Title 
GIRDER LOAD TERMS CALCULATION PROGRAM 


I 


PROGRAM NO. 
FOR REINFORCED CONCRETE CONSTRUCTION 
P 4~ D- 1 


-(< Use program ~ 


[lliiJ[g] 


ly~Ja.om~Wo~l.Ot/m' 


[SHFT[ ~ 
SPAN 


6 [ENTER[ WIDTH 
a [ENTER[ SLAB W 


1Gw=1.0t/m J 


1 [ENTER[ GIRDER W 


l =6.0m 
1 [ENTER[ TYPE 


2 [ENTER[ > 


[S}ill] [E] 
7.00 
10.68 6.37 


r--- 
Lill][g] 


ly= 3.0m w 
~ 


Wo= 1.0t/m2 
I SHFT[ ~ 
SPAN 


6 ]ENTER[ WIDTH 


ly= 3.0m 1\j 
JY 
a [ENTER[ SLAB W 


Gw=.1.0t/m 
1 [ENTER[ GIRDER W 


l t=6.0m J 


1 [ENTER[ TYPE 


1 [ENTER[ 11.01 
16.87 9.75 


Input 
Display 
Note 
Input 
Display 
Note 


1 
11 


2 
12 


3 
13 


4 
14 


5 
15 


6 
16 


7 
17 


8 
18 
9 
19 


10 
20 
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SHARP 


Title 
GIRDER LOAD TERMS CALCULATION PROGRAM I PROGRAM NO. 
FOR REINFORCED CONCRETE CONSTRUCTION 
P4~D-1 


i:I Use program IQl 


I SHFT] [g) 


Bw=1.0 t/mm 
[Wff]!Ql 
SPAN 


ly ELiJ Wo~J.O t/m' 


6 [ENTER] WIDTH 


6 ]ENTER] SLAB W 


1 ]ENTER] GIRDER W 


1 ]ENTER] TYPE 


~ Gw= 1 .0 J t/m 
2 ]ENTER] BEAM W 
1 ]ENTER] > 
l =6.0 
ISH FT I [E) 
12.70 22.50 10:12 


Bw= 1.0 t/m 
I SHFTI ~ 


ISH FT I IQl 
SPAN 
r 


I 
I 
6 ]ENTER] WIDTH 


~ 
Wo=1.0 t/m2 
6 ]ENTER] SLAB W 


'YT.0m 
./1h2"71' h 
1 ]ENTER] GIRDER W 


~~~)" Gw= 1.0 t/m 
1 ]ENTER] TYPE 


l ]ENTER] BEAM W 
ly J6.0m 
' 
1 ]ENTER] 22.40 40.50 
17.25 
I 


l~~6 od 


Input 
Display 
Note 
Input 
Display 
Note 


1 
11 


2 
12 


3 
13 


4 
14 


5 
15 


6 
16 


7 
17 


8 
18 


9 
19 


10 
20 
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SHARP 


Title 
GIRDER LOAD TERMS CALCULATION PROGRAM I 


PROGRAM NO. 
FOR REINFORCED CONCRETE CONSTRUCTION 
p 4- D-1 


1:. Use program :Q] 


TH FT i [g; 


ISH FT [Q] 
SPAN 


Bw= I .0 t/m 
6 
II~TE_Il] WIDTH 


ly+On~ 
WFIOVm' 


6 [Hill] SLAB w 


1 [EillilJ GIRDER W 


1 [EliTE A] TYPE 


2 [ENTERJ BEAM W 
l 
Gw= 1.0 t/m 
1 IEiifER] > 


1=6.0m J 
, sH_r_r: [fJ 
15.20 
22.83 
12.50 


Bw= I .0 t/m 


r--- 
:S\1}1_ [gJ 
I 
I 
--- 


I 
I 
SHFT I [Q] 
SPAN 
I y = 6.0m 
I 
I 
Wo= 1.0 t/m2 
6 [®]] WIDTH 


6 [E]illJ SLAB w 


~ 
L'l\i;;!' 'IC>f 


[ENTER] 
.:i. 
1 
GIRDER W 


ly= 6.0m 
Gw= 1.0 t/m 
1 liNTER] TYPE 


1 JENTE~ BEAM W 


~ 
1 [ENTER[ 27.41 
4l.l6 22.00 


I~ 1=6.omJ 


Input 
Display 
Note 
Input 
Display 
Note 


1 
11 


2 
12 


3 
13 


4 
14 


5 
15 


6 
16 


7 
17 


8 
18 


9 
19 


10 
20 
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SHARP 


Title 
LOADS ON THE MAIN GIRDER FOR A 
PROGRAM NO. 
REINFORCED CONCRETE BUILDING 
P 4- D- I 


14 Use various programs in combination. 
r- 
I 


ly= 6.0m 
I 
Bw= 1.0 t/m 
I 
Column 
..- 
~ 
.~ 


ly= 6.0m ~ 
/ 
Wo= I .Ot/m 
F-~ 
Wo=I.O t/m2 
m 


IATffilT ~ 
l=t:::::; 


ly =6.0 
Wo= I.Ot/m 2 
IA111 ~~ ~ 
~~~~IJY Gw=I.Ot/m P-- ~ ~~~D' 
k1 
~ 
~ 
ly = 6.0 
m 
Gw= 1.0 t/m 


~ v 


ly= 6.0 
ly =3.0 
Gw=I.O t/m 
I 


j 
Bw= I .0 t/m 
I I 
Bw=I.Ot/m 
'--- 
L,.___ 


l/=6.0 m J 
l 
J 


.......-- 
l=6.0m 
L l=6.0m....) 


[ill] [g] 
'1Hlll [g] 
l SH fT [ [g) 


iSH fT I IAl 
SPAN 
lllill ~ 
SPAN 
[ SHFTI [g 
SPAN 


6 ~jill] WIDTH 
6 [i1IR] WIDTH 
6 [m!J WIDTH 


6 [[iilll SLAB W 
3 [[!ill I SLAB w 
6 ~l SLAB W 


1 lilllil GIRDER W 
1 lilltil GIRDER W 
1 [@i] GIRDER W 


1 [ENTER[ TYPE 
1 [ENTE][] TYPE 
1 [fit][] TYPE 


2 [ijill] > 
2 [ENTER[ > 
2 [ill£_~ BEAM w 
1 [ENTER] > 


[Siffi] ~ 
SPAN 
[~Hf_IJ [g 
SPAN 


1siml ~ 
SPAN 


6 Wi!J WIDTH 
6 ~@ WIDTH 
6 [Eifl:j[] WIDTH 
3 ~l SLAB W 
6 lillE.Rl SLAB w 
6 [ENitill SLAB W 


1 lilltil GIRDER W 
1 [®ill GIRDER W 
1 lEill.iJ GIRDER W 


1 [!'ill] 12.63 
19.68 
10.87 
1 [IDE][] BEAM w 
1 ~!T_ij] BEAM W 


1 llliiil 16.71 
26.68 
13.50 
1 [Eiili] 24.91 
40.83 
19.62 


Operate programs 
Operate programs 
Operate programs 


fAl 
and 
~. 
~l and lQJ. 
[Qj and 
~. 


Input 
Display 
Note 
Input 
Display 
Note 


1 
11 


2 
12 


3 
13 


4 
14 


5 
15 


6 
16 


7 
17 


8 
18 
9 
19 


10 
20 
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Title 
GIRDER LOAD TERMS CALCULATION PROGRAM 
PROGRAM NO. 
FOR REINFORCED CONCRETE CONSTRUCTION 
P 4- D- I 


Memory content 


A 
1 
10: "F": 1<=0: U=R: f(:::Q 
?f\• pr:urr USING II tit!# tt I! • it tt II; u; s; T 
-~·-'a 


8 
2 
Bw 
30: [iJ[) 


c 3 
c 
ItO: "G":CLEf;R 
5C: Ei•!D 


D 4 
60: "A":GOSUC 500 


E 
70: Z=t·J*L/2 
5 
80: 0=5* Z*L*L 


F 
6 
90: C=D/96:Q=Z*LI4 
100: fi=Z*L*L/12 :GOSUB 600 
G 7 
Gw 
110: END 


H 8 
120: "G":GOSUC 500 
130: A=Y/2:Z=ll*A 
I 
9 
v 
140: C=2/(12*L)*(LA3-2*A*A*L+AA~) 


,J 10 
v 
150: ~=(3*L*L-4*A*A)*Z/24 
160: Q=(L-A)/2*Z:GOSUO 600 


K 11 
Type 
170: END 


L 12 
l 
1130: "C":GOSUG 500 
190: INPUT "8EM1 \J 
";B 


M 13 
m 
200: Z=ti*L/ It 


N 14 
210: P=B*Y/2+\~(L*L/16+CY/2-L/4)*L/2) 
220: C=17*Z*H*L/384+P*L/S 
0 
15 
230: l'i=Z*L·kl/ 16+P*LI 4 
p 16 
p 
240: Q=Z*L/4+P/2:GOSUB 600 
250: ErJD 


Q 17 
Q 
260: "D":GOSUG 500 


R 
270: INPUT "DEAn 
~I 
";B 


18 
c 
280: Z=U*L/6 
s 19 
M 
290: P=3* Y /2+\1* ( L* L/36+ ( Y I 2-L/6) *Lf=;) 
300: C=37*Z*L*L/364+2*P*L/9 


T 20 
Q 
310: ~=7*Z*L*L/108+P*L/3 


u 21 
320: Q=Z*L/It+P:GOSUO 600 
330: END 
v 22 
500: INPUT "SPAN 
";L, 
11 HIDTH 
ll;y 


w 23 
Wo 
510: IrJPUT 
II SLAB 
~J 
II ;VJ, 
11 GIRDER u "iG 
520: IF I<<>ORETURtl 


X 24 
530: I!JPUT "TYPE 
";K 


y 25 
ly 
540: RETUIW 
600: IF K=2GOTO 620 
z 26 
v 
610: C=C+C :f1=f1H1:Q:::Q+Q 
620: IF R<>OLET R=R+C:S=S+M:T=T+O:GOTO uco 
630: H=G*L*L/12 
6Lr0: I=H*1.5 
650: J=G*L/2 
660: R=C+H: S=f·1+ I: T=Q+J 
6 70: IF K=2RETURN 
680: PRINT USING "iJ#fttlti.#U" ;R;S;T 
690: CLEAR 
700: RETUR!J 
740 
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SHARP 


Title 
FORCE OF SECTION OF SIMPLE BEAM 
I PROGRAM NO. 
(UNIFORMLY VARYING LOAD, TRAPEZOIDAL) 
P 4- D- 2 


[ Formula] 


This program calculates the simple beam to whiCh a trapezoidal load as shown below exerts. 
~ 
1 
,_j 
{= 


A ..L,>- 


Xo 
I 
_J" 


l 
l 


Total load 
q 1 + 
q2 
w = 
• l 
2 


Reaction 
RA = 
( 2 q 1 + 
q2) . l /6 


RB = 
( q 1 + 
2 q 2) . l/6 


Position of x applying the maximum bending moment: x o 


Xo = 
l 
{-q1+/ __!_X 
(q2-q1) 
3 
( q 12 + q 1. q 2 + q l ) } 


Maximum bending moment 


Mmax = R A X 0- q 1 X o2 / 2 - 
( q 2 - 
q 1 ) . X o3 / 
( 6 [ ) 


[Example] 
q1= 1.0 t/m 
Qz = 2.0 t/m 
l = 10m 


[ Operation ] 
c LOAD vD2v 
lfN'nRl 


Input 
Display 
Note 
Input 
Display 
Note 


1 
iJHJI' 
~ Ql= 
11 


2 (q 1) I 
liillRl Q2= 
12 


3 (q z)2 
[ENillJ L 
= 
13 


4 (l) 10 
[ENTER] w = 
15 
14 


5 
[ENTER[ RA= 
6 .666666667 
15 


6 
[ENTER] RB = 
8.333333333 
16 


7 
[E_N_TER[ XO= 
5.275252317 
17 


8 
[ENLER) M,MAX 18.80751802 
18 


9 
19 


10 
20 
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Title 
FORCE OF SECTION OF SIMPLE BEAM 
PROGRAM NO. 
(UNIFORMLY VARYING LOAD, TRAPEZOIDAL) 
P 4- D- 2 


Memory content 


A 1 
B 2 
RA 
c 3 
10: "A":INPUT "Q1= ";p,"Q2= ";Q,"L= ";L 
20: USING :W=(P+Q)/2*L 
D 4 
30: R=(2*P+Q)*LI6 


E 5 
40: B=(P+2*Q)*l!6 
50: PRINT "W=" ,!;! 


F 6 
60: PRINT "RA=",R 


G 
70: PRINT "RB=",B 
7 
80: X=C-P+J((P*P+P*Q+Q*Q)/3))*L/(Q-P) 
H 8 
90: M=R*X-P*X*X/2-(Q-P)*XA3/(6*L) 


I 
100: PRINT "XO=",X 
9 
110: PRINT "~1,MAX" ,~1 


~ 10 
120: END 
209 
K 11 
L 12 
l 


M 13 
Mmax 


N 14 


0 
15 
p 16 
Ql 


Q 17 
Q2 


R 18 
RA 
s 19 


T 20 
u 21 
v 22 
w 23 
w 


X 24 
xo 


y 25 
z 26 
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SHARP 


CORRECTION COEFFICIENT OF DISTRIBUTION 1 


PROGRAM NO. 
Title 
SHEARING FORCE DUE TO TORSION 
P4-D-4 


[ Formula] 


This program calculates the correction coefficient a of the distribution shearing force due to 
torsion. 


J ~ Reference line 


).,_ 
,1_ 
Yl 
wx 
DX 
A 
)._ 
n 


ax 


t 
"' 
IG y 
;§ 
Center of ridigity 
' 
"' 
rv 
Yl 
u 
-~-__Q 
= 
~ 
~--~c- T 
"' 
Yl 
wx 
DX 
.... 
~-( 
' 


_J_~ f-LY 
r-- ax 
~ 


r.v 
I ·"' 
Yl 
..,.. 
~ 
Center of gravity 


,1-., 
Yl 
wx 
DX 
\ax 
-( 


""' 
t? 
: The data refers to the x-direction (the same 
"'' 
V1 
.. 
symbols are used in they-direction) . 
V1 
Yl : distance from reference line to each X row 
- 
- 
- 
- 
WX : weight of each x row (total of column axial 
X 
X 
X 
X 
forces) 


>-< 
DX : total of D values in each x row (incl. wall) 


>-< 
~ 
>-< 
ax : correction coefficient 
~ 
~ 
~ 
GY : distance from reference line to center of 


>-< 
>-< 
>-< 
>-< 
ridigity 


Q 
Q 
Q 
Q 
JX : moment of inertia of D value in x-direction 
QY : distance from reference line to center of 
gravity 
EY : eccentric distance in x-direction 
L 
I 
I 
J 


y 
: distance from center of rigidity to each x row 


ay 
ay 
ay 
ay 


I + 
l,'DX•EY •Y 
QY= l,'(WX•YI ) 
a,. = 
JX+JY 
l,'WX 
[ Operation ] 


GY= l,'(DX·YI) 
EY=QY-GY 
C LOAD VD4 V [ENTER[ 


l,'DX 


J X= 2,' ( D X • Y I 2 ) -2,' D X • G Y 2 
Y=YI-GY 


Input 
Display 
Note 
Input 
Display 
Note 


1 
! SH FT I 
(!] 
NX= 
11 (DX) I 
[@ CORRECT ? 


2 (NX) 
2 
[ENTER[ NY= 
12 When no_t 
[ENTER' 
correctmg 
J WALL D 


3 (NY) 
3 
[ENTER[ Yl= 
13 
3.2 
[ENTER[ WALL D 


4 (Y I) 
0 
[ENTER[ WX= 
14 WJ&Pt end [ENTER[ 0.0 
353.0 
6.0 


5 (WX) 81 
[ENTER[ WX= 
15 
[ENTER[ 


6 (WX) 136 
[ENTER[ WX= 
16 


7 (WX)l36 
[ENTER[ CORRECT ? 
17 When correcting (Common for WX, DX) 


8 
[niilll DX= 
18 
-If;_ 
[EtHER I 


9 (DX)O .8 [filii] DX= 
19 
Correct 
[ENTER[ 
value 


10 (DX) 
I 
[ENTER[ DX= 
20 
Let stand after correction[ENHR[ 
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1 


SHARP 


Title 
CORRECTION COEFFICIENT OF DISTRIBUTION 
SHEARING FORCE DUE TO TORSION 


PROGRAM NO. 
P4-D-4 


[ Example] 
Input data 


<--Reference line 


1--D value in 
D val.ue il) 
D value on wall 
'I 
y-directwn ( 
x-duectwn f 


o. 8( o 
.8~3~2)- -!.o-- -.,! .0(3.2) 
2.1 
2.1 
1.6 


---7<o-----~----~~~--<r-----c~----o 
i 


~ 
81 t 
0. 8 
136 0. 8 136', 
I. 6 136 
I. 6 136 
I. 6 81 
(4.4) 
_. 
.S 
1 Axial force 
( 
(4.4) 
(4.4) 
(4.4) 


8 1 


1! 0 .8(3 .2)1. I 1.1 
1. 1 1.1 (3 .2) 
2.2 
2. 2 


~ \1~9 _____ 1]3 __ ....- 
196 
2.2 242 
2.2173 


1.6 


2. 2 fl53 


(2.2) 
"' 
~ 


1 0 .8(3 .2) 1 
I .I 
1 1.1(3.2) 
2.2 
2.2 
0.8 


175 
193 
211 
2. I 224 
2. I 193 
2 165 


(5.6) 


0.8 1.7 
0.8 
2.0 0.8 2.0 
0.8 2.0 
0.7 1.0 
0.7 0.8 


!08 
143 
143 
143 
143 
103 


5.7m 
5.7 
5.7 
5.7 
5.7 


XI 
0 
5.7 
11.4 
17.1 
22.8 
28.5 


Yl 


Om 


5.7m 


5.7 


5.7 


11.4 


8.3 


19.7 


wx 


706t 


I ,066 


I ,161 


783 


3.716 t 
i 
IW 


DY 
!3.7 
3.7 
3.7 
II. I 
11.0 
13.1 
56.3 <--IDY 


The example shown below refers only to the area surrounded by dotted line. 


The usable range is 4 -NY + NX ~ 40. 


Input 
Display 
Note 
Input 
Display 
: 
11 
@ 
XI 


DX 


15.0 


15 .4 


14.6 


9.5 


54.5 
i 


IDX 


Note 


2 (Wal!D)3 .2 [EN!ij] WALL D 
12 
0 
[Ejill] 


3 
IIilliD 5.7 
498.0 
6.2 
13 
i 


4 
[ENTER[ AW 
851 
14 


I 


I 


5 
[EN_ill] ADX 
12.2 
15 
rNriRJ 0.0 
210.0 
6.3 


6 
[ENTER[ QY 
3.33560517 
16 
ENYEii] 
I 


I 


7 
[@ GY 
2.896721311 
17 
I 
I 
I 


8 
[ENTER[ EY 


I 
1 8 
I 
I 
I 


9 
1ENill] JX 
I 
19 
I 
10 
20 
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SHARP 


CORRECTION COEFFICIENT OF DISTRIBUTION 
PROGRAM NO. 
Title 
SHEARING FORCE DUE TO TORSION 
P4-D-4 


[ Result ] 
Output data 


ax 


1 
j 
J 
I 
I 
j 
0.939 
,.--------, 


m 
m 
QY=9. ~5 
GY= 8.10 
0.981 
1--- 


~- 
~_,_ 
_.__ --++- 
EY= !.25m 
. I 
1.024 
lj 


- 
r-- 


QX= 14.33m 


GX= 
15 .58m 
1"-l- EX=-1.21 m 
-, 


1.087 


- 
v 
....._____ 


ay 11121 
1.~76 
I !.032 
0.9~8 
0.~43 
o.J99 


JX=2 ,510 


JX + JY=9 ,047 


Cautions for correcting: 


1. NX, NY, and distance cannot be corrected. 


2. When correcting the wall D value, enter the wrong input with minus sign, and then feed a 
correct input. 


Input 
Display 
Note 
Input 
Display 
Note 


1 
11 


2 
12 


3 
13 


4 
14 


5 
15 


6 
16 


7 
17 


8 
18 


9 
19 


10 
20 
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Title 


CORRECTION COEFFICIENT OF DISTRIBUTION 
PROGRAM NO. 
SHEARING FORCE DUE TO TORSION 
P 4- D- 4 


Memory content 


A 1 FOR text 


B 2 NX 
c 3 NY 
10: "A":CLEAR :INPUT "NX= ";B,"NY= ";c 
20: Z=B:S=C:T=29+2*C:A(27)=0 


D 4 DX,DY 
30: GOSUB 500 
40: L=O:G=N 


E 5 EX,EY 
SO: F=O:H=O:I=O:M=O:V=O 


F 6 ..IDX,IDY 
60: Z=C:A(27)=1:S=B:GOSUB 500 
70: "B":Z=B:AC27)=0:GOSUB 900 


G 7 GY,GX 
80: Z=C:AC27)=1:L=O:G=N 


H 8 I(DX•YI) ,I(DY• X I) 
90: GOSUB 900 
100: END 


I 
9 I(DX•YI 2) ,27(DY•DX 2 ) 
500: FOR X=1TO z 


J 10 JX,JX+JY 
510: IF AC27)=1GOTO 650 
520: INPUT "Y1= ";y 


K 11 
530: K=29:FOR A=1TO S 


L 12 IDX• EY ,IDY• EX 
540: INPUT "WX= ";A{K) 
550: K=K+1:NEXT A 
M 13 I(WX•YI) ,I(WY•XI) 
560: INPUT "CORRECT ? ";P,R:GOTO 580 


N 14 GY,GX 
570: K=29:W=O:P=K+C:GOTO 590 
580: AC28)=28+P:A{A{28))=R:GOTO 560 
0 15 IDX • EY ,IDY • EX 
590: FOR A=1TO S 
600: W=W+A(K):A(P)=ACP)+A{K) 
p 16 
610: P=P+1:K=K+1:NEXT A 
Q 
17 QY,QX 
620: K=P+C+B:FOR A=1TO C 
630: INPUT "DX= ";A(K) 
R 18 
640: K=K+1:NEXT A:GOTO 700 


s 19 
650: INPUT "X1= ";y 
660: K=29+3*C+B:P=28+X+C:W=A{P) 


T 20 
6 70: FOR A=1TO S 


u 21 
IXx .ay 
6~0: INPUT "DY= ";A(K) 
690: K=K+1:NEXT A 
v 22 IWX ,IWY 
700: INPUT "CORRECT? ";P,R:GOTO 720 


w 23 WX,WY 
710: D=O:R=29+3*C+B:GOTO 74C 
720: A(28)=28+3*C+B+P 


X 24 
730: A(A(28))=R:GOTO 700 


y 25 Yl ,XI 
740: FOR A=1TO S 
750: D=D+A{R) :R=R+1 
z 26 
760: NEXT A 


A(27) For jump 


A(28) Correction address 


A(29) - 
NY pes. W temporary store 


\ NY pes. 
W grand total 


\ NXpes. 
Yl 


\ NY pes. 
X I 


\ D temporary store 
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Title 
CORRECTION COEFFICIENT OF DISTRIBUTION 
PROGRAM NO. 
SHEARING FORCE DUE TO TORSION 
P4-D-4 


Memory content 


A 1 


8 
2 
c 3 


D 4 
770: INPUT "WALL D= "iR:D=D+R:GOTO 770 
780: V=H+V: M=~J*Y+M 


E 5 
790: F=F+D:H=D*Y+H 


F 6 
800: I"=D*Y*Y+I: ACT) =Y:T=T+1 
810: PRINT USING "####.fl"iYiUSING "######tl.tl 


G 7 
"iWiUSING "#tl##tl#.#"iD:NEXT X 


820: Q=M/V:N=H/F 
H 8 
830: E=Q-N:O=F*E 


I 
9 
840: J=I-F*N*N+J:USING 
850: IF AC27)=1GOTO 880 


J 10 
860: PRINT 
"A\~" ,v:PRINT "ADX",F:PRINT "QY",Q 


K 11 
:PRINT "GY",N:PRINT "EY",E:PRINT " 
J X" ,J 
L 12 
870: RETURN 
M 13 
880: PRINT "AW",V:PRINT "ADY", F:PR !NT "QX" ,Q 
:PRINT "GX",N:PRINT "EX",E:PRINT" 


N 14 
J X+J Y" ,J 


0 15 
890: RETURN 
900: FOR A=1TO z 
p 16 
910: T=28+2*C+A 


Q 17 
920: IF AC27)=1LET T=T+B 
930: Y=A(T):U=1+L/J*(Y-G) 


R 18 
940: IF AC27)=1GOTO 960 


s 19 
950: PAUSE "Y1 
ALPHA( X) II: GOTO 970 
960: PAUSE "X1 
ALPHA(Y)" 


T 20 
970: PRINT y,u:NEXT A:RETURN 
u 21 
1056 


v 22 
w 23 


X 24 
y 25 
z 26 


' 
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1 


2 


3 


4 


5 


6 


7 


8 
9 


10 


Title 
SHARP 


STRESS CALCULATION OF THREE HINGED POINT 
GABLED ROOF FRAME 


PROGRAM NO. 
P4-D-5 


u C t/mJ 


Ms (Ht~:k~iHHII 
l 
,_.~ --;r 


c 


~j 


B 


A 
E HE 


l 
VA 
VE 


W= wl 


WI 
HA-- HE - ----- 
- 
-8(h+f) 


Sign 


Reaction 
EB8 
Shaft pressure 
- 
f ! 


Compression8 
- 
Tension E9 
Outer 
0~ 
Pludn 1 j 
ee 
EB 
clockwise 
EB 
Inner j 
Inner~ 
;:::::::=:: 


- 
I 
Shearing force 
Bending moment 


NBc = N D c =- sin a VA- cos aHA 


Q B C = - 
Q DC = cos a VA - 
sin a H A 


Input 
Display 
Note 
Input 
Display 
Note 


ISH FT I 
M 
L= 
11 
I SHFTI 
~ 
FERMANENT STRESS 


(1)10.8 
(ENTER I W= 
12 
VA 
2.5056 


(w)O .464 (ENTER I H= 
13 
[ENITR] VE 
2.5056 
(h)3.5 
(ENTERj F= 
14 
(ENTER! HA 
I .3213125 


(f)l.62 lill® S= 
15 
(ENTERj HE 
-] .3213125 


(s)5.63 [N_@ > 
16 
[ij[Rl MB 
-4 . 62459375 


17 
(ENTER j MD 
-4.62459375 


18 
(ENTER I QBA 
-1.3213125 


19 
lffilRJ QDE 
-1 .3213125 


20 
IENmi QBC 
2. 0230397 42 
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SHARP 


Title 
STRESS CALCULATION OF THREE HINGED POINT 
PROGRAM NO. 


GABLED ROOF FRAME 
P4~D-5 


{ o .6 h 
2 
1 
} 
VA=-q. 
l 
+ 0.214s+0.0552( h+2) 


{ 
0.6 h 
2 
I 
} 
V E =- q 
- - 
1- 
+ 0 .39 s - 
0 .0552 ( h + 2 ) 


HA =- q ( 0.7 h 2 +0.8 hi+0.0754sl+0.053sh+0.00791s) 


h +I 


HE=- q ( 0.5 h 2 +0.4 hl-0.0754sl +0.053sh+0.09831s) 


h + I 


MB=-(HAh+0.4qh 2 ), 
Mv =HEh + 0.2 qh 2 


Q B A = - 
( H A + 0.8 qh ) 
QvE=-(HE+0.4 qh) 


N B c = -VA sin a - 
( H A + 0. 8 qh ) cos a 


QBc=V A cos a- ( HA + 0.8 qh) sin a 


Nvc =-"vE sin a+ (HE+ 0.4 qh) cos a 


Qv c =- V E cos a- (HE+ 0.4 qh ) sin a 


lMJ program: 
Input of condition 


~ program: 
Perpendicular stress 


~ program: 
Horizontal stress 


[ Operation ] 
c LOAD vn5v 
[ENTER[ 


Input 
Display 
Note 
Input 
Display 
Note 


1 
[ENHRi QDC 
-2.0230397 42 
11 
[ENTER[ 
MB 
9.55175102 


2 
[ENTER) NBC 
-1.988305418 
12 
[ENTER) MD 
-1.776221328 


3 
lEITER) NDC 
-1.988305418 
13 
[EmR[ QBA 
-1.04907172 


4 
14 
[EllER) QDE 
-0.332508192 


5 
ISH FT I 
~ 
SEISMIC STRESS 
15 
[EllER[ QBC 
-2.141990617 


6 
Q= 
16 
[EllER I QDC 
I . 37 4387738 


7 (q) 1 .2 
[ENTER[ 
VA 
-2.547945067 
17 
[mER I NBC 
1.739370923 


8 
[ENTER: 
VE 
-I . 532678933 
18 
[EllER[ NDC 
7 .599431E-- 01 


9 
[ENTER[ 
HA 
-4.40907172 
19 


10 
[EllER] HE 
-1.347491808 
20 
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STRESS CALCULATION OF THREE HINGED POINT PROGRAM NO. 
Title 
GABLED ROOF FRAME 
P4-D-5 


Memory content 


A 
1 


8 
2 
c 3 
10: "11": INPUT "L= ";L,"W= ";w,"H= ";H,"F= " 


D 4 
;F,"S= ";s 


E 
20: X=L/2/S :Y=F/S 
5 
30: END 
F 
6 
40: "A":PAUSE "PERMII"'ENT STRESS" 
50: P=W*L:A=P/2:8=!\ 


G 7 
60: C=P*L/8/(H+F) :D=-C 


H 8 
70: E=-C*H:G=E 
SO: I=-C:J=I 


I 
9 
90: M=X*I\-Y*C :0=-M 
.J 10 
100: K=-Y*A-X*C:N=K 
110: PRINT "VA" ,p, :PRINT "VE",B:PRINT "HA" ,c 
K 11 
120: PRINT "HE",D:PRINT "MB",E:PRINT "MQ",G 


L 12 
130: PRINT 


,M 


"QBA", I: PRINT "QDE",J:PRINT "QBC" 


M 13 
140: PRINT "QDC" ,O:PRINT "NBC",K:PRINT "NDC" 


N 14 
,N 
150: END 


0 
15 
160: "8" :PAUSE "SEISMIC STRESS" 


p 16 
170: INPUT "Q= ";Q 
1 GO: R=.6*H*H/L:T=.0552*CH+F/2) 
Q 17 
190: U=.0754*S*L:V=.053*S*H:Z=H+F 


R 18 
200: A=-O*CR+.214*S+T) :B=-O*C-R+.39*S-T) 
210: C=-Q*(.7*H*H+.8*H*F+U+V+.0079*F*S)/Z 


s 19 
220: D=-Q*(.5*H*H+.4*H*F-U+V+.0933*F*S)/Z 


T 20 
230: Z= .4*Q*fl 
240: E=-C*H-Z*H:G=D*H+Z*H/2 


u 21 
250: I=-C-Z*2:J=-D-Z 


v 
260: K=-A*Y-CC+2*Z)*X 
22 
270: M=A*X- ( C+2* Z) *Y 


w 23 
280: N=-B*Y+(D+Z)*X 
290: 0=-B*X-CD+Z)*Y 


X 24 
300: GOTO 110 


y 25 
310: END 
651 
z 26 
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SHARP 


Title 
RIDGE DEFLECTION CALCULATION OF GABLED ROOF 
PROGRAM NO. 


FRAME (COLUMN BASE PIN, UNIFORM DISTRIBUTION) 
P4-D-6 


[ Formula] 


w t/m 
HA =HB =H 


s ___.-----\ 


(8h+51) •wl 2 
an 
H= 32{h'Ck+3)+1(3h+l)} 
I 
~ !---""' 
--~r: -~ 
I 
lc 
I, 
- 
k= I z • h 
£1 


I 
I 
I I. s 
I 
I 
I 
h 
I 
I I I 
I 
I I= I,= I 


r 


I 
I 


A 
R 
HB 


VA 
VB 


- 
3h+21 
- 
l 
H= 8{ h 2 (k+3)+1(3h+l)} 
Pl 


2h 
3 
- 
S 
{5wl 
3 
w l 2 
- 
IYD=---·HH+-- -- ---(51+8h)H- 
3EI 
EI 
192 
48 
-- ( 2 I+ 3 h ) H +- ( I'+ 3 hI+ 3 h 2 ) H H 
l 
2 
- 
} 
I 2 
3 


~here, if is the horizontal reaction at points A, B when virtual load 
P = 1 is applied to ridge point 0. 


[ Example] 


h = 450(cm) 
s = 940(cm) 


I 
= 270(cm) 
E = 2,100(t/cm2 ) 


w = 
0 .0027( t/cm) 
I 
= 7 , 2 I 0 ( em') 


l 
= !800(cm) 


[ Operation ] 
c LOAD 
'7D6v 
(ENTER( 


Input 
Display 
Note 
Input 
Display 
Note 


1 [ill] 
~ H= 
11 


2 (h)450 
[ijill] F= 
12 


3 (/)270 
(ENTER( W= 
13 


4 (w)O .0027 (ENTER( L= 
14 


5 ( l) 1800 
[E!ill] S= 
15 


6 (s)940 
(ENTER( E= 
16 
7 (£)2!00 
(ENTER] 
I = 
17 


8 (/)7210 
(ENTER( DEFLECTION 4.599375225 
18 


9 
19 


10 
20 
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Title 
RIDGE DEFLECTION CALCULATION OF GABLED ROOF 
PROGRAM NO. 


FRAME (COLUMN BASE PIN, UNIFORM DISTRIBUTION) 
P 4~ D~ 6 


Memory content 


A 1 
h 2 ( k+3 )+I C 3 h+ f) 


B 2 v 
c 3 v 
1 n. 
II A": INPUT "H= ";H,"F= ";F,"\<.1= ";W 
'-'• 


D 4 v 
20: INPUT "L= ";L,"S= ";S,"E= ";E,"I= ";I 
3n· 
'-'. K=H/S 
E 5 E 
40: A=H*H*CK+3)+F*(3*H+F) 
F 
6 I 
SO: M=(8*H+S* F) *W*L*L/32/ .ll, 
60: N=(3*H+2*F)*L/8/A 
G 7 v 
70: B=2*HA3*M*N/3/E/I 
H 
8 
h 
80: C=C2*F+3*H)*L/12*M 
90: D=2*(F*F+3*H*F+3*H*H)*M*N/3 


I 
9 
I 
100: G=W*L*L/48*(5*L/4-CS*F+8*H)*N) 


J 10 
IJo 
110: C=C G-C+D) *S/ E/ I 
120: J=B+C 


K 11 
k 
130: PRINT "DEFLECTION", J 
L 12 
l 
140: END 
295 
M 13 H 


N 14 H 


0 15 
p 16 


Q 
17 
R 18 
s 19 
s 


T 20 
u 21 
v 22 
w 23 
w 


X 24 
y 25 
z 26 
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SHARP 


Title 
I 


PROGRAM NO. 
DESIGN OF END PLATE JOINT PART 
P 4- D-7 


[ Formula] 
nAb 
w1=-H- 


-$- • r 


n : number of bolts 
~~ 
A b : sectional area of bolt shaft (em 2 ) 


lJM 
-$- 
-$- 
H : height of end plate (em) 
H 


~ -$- 1 


w2 = w- w1 
Q 
I 
·~·~ 
w : width of end plate 


-$ 
-$- 


lE--w~ 


=-=-r- 
u/2 k 


- 
X - 
Wj ( J:!!!I-- + I - 
I ) 
y---- 
-- 


--"~- ~-f 


h 
W2 
WI 


: neutral axis ratio 
r 
s/2 
-~- 
--- 


t 
w 2 H 
3 
{ 
3 WI 
( 
I 
y + 
3+ ~} 
( 
I=-- 
--- 
--r 
T 
3 
w 2 
2 
4 w2 


I 
: moment of second order of replacement 
I 
• H-t 
section (cm4 ) 
Z= ( I - T ) 
z : sectional coefficient (cm3 ) 


lit= M/Z 
at :bolt tensile stress (t/cm2 ) 


Investigation of at ~ ft 


Q ~ n • Ab • Is (t) 
(Investigation into shearing force) 


tp> j 6 b 
1n 
1 BT 


w• fb 1 


t P : thickness of endplate (em) 


Input 
Display 
Note 
Input 
Display 
Note 


1 I SHFT I 
~ FS = 
11 
[filER] I = 
54797.60986 


2 (f,)2 .25 )EllER) FBI= 
12 
)EllER) Z= 
896.0846184 


3 (fb )3 .81 )EllER) M = 
13 
mrn 
S I GMA T= 4 .463864146 


4 G\1)4000 
)EITER) B,= 
14 
)EllER) N*AB*F S= 98.91 


5 (b')3.4 
)EllER) N = 
15 
)EllER I TP= 
2.236800622 


6 (n)14 
lEITER) N,= 
16 


7 (n' )2 
)UTERI AB= 
17 


8 (Ab)3.14 lEITER) H 
= 
18 


9 (H)70 
)EITER) w = 
19 


10 (w)30 
)EllER) R 
= 
I .263961E-OI 
20 
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SHARP 


Title 
DESIGN OF END PLATE JOINT PART 
I PROGRAM NO. 


P4-D-7 


b' : b - u/2 (b : distance between bolt center 
and fillet center, em; u : parallel distance 
between bolt heads, em) 


I : number of bolts in the outermost edge 
n 
bolt row on the tension side 


BT: tension acting on outermost edge bolts 
= at· Ab (t) 


fb : allowable bending stress of plate ( t/ em 2 ) 
1 


[ Example] 


Is ······ ··· 2 . 2 5 t / cm2 (temporary) 
Ab ········· 3 . I 4 em2 


h 1 ••••••••• 3 . 8 I t / em2 (temporary) 
H 
········· 70em 


Mo ·········4000t.em 
WJ ········· 0. 6 2 8 em 


If ········· 3 .4 em 
w 
········· 30em 


n' ......... 2 


[ Operation ] 


c LOAD \7D7V 
llli1ID 


Input 
Display 
Note 
Input 
Display 
Note 


1 
11 


2 
12 


3 
13 


4 
14 


5 
15 


6 
16 


7 
17 


8 
18 
9 
19 


10 
20 
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Title DESIGN OF END PLATE JOINT PART 


PROGRAM NO. 
P4-D-7 


Memory content 


A 1 
Ab 


8 
2 
b' 
c 3 
Ut 
1 0: 
II A": INPUT "FS= ";S,"FB1= ";F,"M= "iM 


D 4 
n•Ab•fs 
20: HJPUT "B,= ";s,"rll= ";Q,"IJ,= ";N,"AB= ". , 


E 5 
A 


30: INPUT "H= ";H,"I,J= "i\N 


F 6 
f b 1 
40: V=O*A/ H 


G 7 
50: U=t-1-V: X=V/U 
60: R=X*([C1/X+1)-1) 
H 8 
H 
70: I=U*HA3/3*(3*X*C.5-R)A2+RA3+X/4) 


I 
9 
I 
80: Z=I/H/(1-R) 
90: C=WZ:D=O*A*S 
.J 10 
100: T=f(6*B*N*C*A/W/F) 
110: PRINT "R=",R:PRINT "I=",I 


K 11 
120: PRINT "Z=",Z 


L 12 
130: PRINT "SIGMA T=",C 
140: PRINT "N* AB* FS=", D 
M 13 
M 
150: PRINT "TP=",T 


N 14 
n' 
160: END 
295 


0 
15 
n 
p 16 


Q 17 
R 18 
r 
s 19 
fs 


T 20 
fp 
u 21 
v 22 
wl 
w 23 
w 


X 24 
y 25 
z 26 
z 
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SHARP 


Title 
SECTIONAL AREA A, MOMENT OF SECOND 
PROGRAM NO. 
ORDER I, SECTIONAL COEFFICIENT Z (PART 1) 
P4-D-8 


[ Formula] 


With respect to the typical sections shown below, A, I and Z are determined. 


Symbol 
Section 
A 
I 
z 


-§Ih 


I 
I 
··· ~Program 


A 
bh 
bh 3 
- bh 2 
I 2 
6 
~ 
49l' 


I 
I 
b(hi-h13 ) 
··· ~Program 


B 
b(h2-hl) 
-b(h 3 -h 3 ) -· 
I 2 
2 
I 
6 
h2 


•• 


TC 
_2_ ct• 
....!!..._ d 3 


··· [g Program 
c 
- 
d2 


~ 


4 
64 
32 


~d, 
d24 - 
dJ4 
. . . [QJ Program 
TC 
TC 
(d24 -dJ4 ) 


TC 
D 
-(dl-dJ2) - 
--· 
4 
64 
32 
d2 


In the case of A, if the structure is square, the same value should be entered for the input of 
band h. 


[ Example] 


(A)·a. In section A, the values of A, I, Z are found, provided b = 3 em, h = 5 em. 


(A)·b. The values of A, I, Z of a square of which one side is 4 em are found. 


(B) The values of A, I, Z are found under the condition that a 2.5 em hole is provided in the 
center of a plate measuring 1.2 em in thickness and 10 em in height. 


(C) The values of A, I, Z of a bar measuring 6.5 em in diameter are found. 


(D) The values of A, I, Z of a pipe measuring 7.5 em in outside diameter and 6.5 em in inside 
diameter are found. 


[ Operation ] 
c LOAD 
vD8\l 
[ENTER[ 


Input 
Display 
Note 
Input 
Display 
Note 


1 
I SHfTI 
@ 
B 
= 
11 
I SHFT I [g 
D = 


2 (b) 3 
[ENTER[ H = 
12 (d) 
6 .5 [EITER[ 
33.18 
87.62 26.96 


3 (h) 5 
[ENTER] 
15.00 
31 t25 
12.50 
13 


4 
A. 
1 
z 
14 
ISH FT I [QJ 
D1= 


5 
ISH FT I 
~ B 
= 
15 (d1)6.5 [ENTER[ D2 = 


6 (b) I .2 
[ENTER[ HI= 
16 (d2) 7.5 [ENTER I 10.99 
67.69 
18.05 


7 (h 1)2 .5 
[ENTER[ H2 = 
17 


8 (h 2) 10 
[ENTER[ 
9.00 
98.43 
19.68 
18 


9 
19 


10 
20 


-174- 


Title 
SECTIONAL AREA A, MOMENT OF SECOND 
PROGRAM NO. 
ORDER I, SECTIONAL COEFFICIENT Z (PART 1) 
P4-D-8 


Memory content 


A 1 bh ' ......... 


8 
2 bhYI2 , ········· 


c 3 bhY6 
10: "A":INPUT "B= ";X,"H= ";y 
......... 
20: GOSUB 500 


D 4 
30: GOTO 200 
40: "B":INPUT "B= ";X," H1 = ";y 


E 5 
SO: GOSUB 500 


F 6 
60: GOSUB 540 
70: INPUT "H2= ";y 


G 7 
80: GOSUB 500 


H 8 
90: GOSUB 550 
1 DO: GOTO 200 
I 
9 
110: "C":INPUT "D= ";y 


J 10 
120: GOSUB 520 
130: GOTO 200 


K 11 
140: "D":INPUT "D1= ";y 


L 12 
1 so: GOSUB 520 
160: GOSUB 540 


M 13 
170: INPUT "D2= ";y 


N 14 
180: GOSUB 520 
190: GOSUB 550 
0 15 
200: PRINT USING "#####.##";A;s;c 
210: RETURN 
p 16 
500: A=X*Y: B=A*Y*Y I 12 
Q 17 
510: C=2*B/Y:RETURN 
520: A=n*Y*Y/4:B=A*Y*Y/16 
R 18 
530: C=2*B/Y:RETURN 
s 19 
540: D=A:E=B:RETURN 
550: A=fl.-D:B=B-E 


T 20 
560: C=2*B/Y:RETURN 
u 21 
322 
v 22 
w 23 
X 24 
b 


y 25 
h ' h, '········· 


z 26 
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SHARP 


Title 
A, I, Z OF VARIOUS SHAPES (PART 2) 


PROGRAM NO. 
P4-D-9 


[ Formula] 


This program calculates the sectional area A, moment of second order I, and sectional coefficient 
Z of sections a) to c) shown below. However, as for case c), since the section is not symmetrical 
vertically with respect to the neutral axis, the sectional coefficient is delivered in two kinds: Z1 , Z2. 
a) 
A = bzhz- b,h 1 
[]] i;11-GTI 


- 
I ( 
3 
3) 
... Pro- 


I --- b 2hz- b 1 h 1 
gram 


2 
_j_ i 
b,1_j_ J 


I 2 
A 
2 I 
z = -- 


~:: ~ 
1_~~- 
~bz~ 
hz 


b) Mt fi1 trl-I 


A = b 1 h,+ bzhz 


... Pro- 


I 


~Mf 


I = -( b,h,3+ bzhz3) 
gram 
I 2 
B 


--joJ~ ~ ---1 ~b,~ ~ "1 


2 I 
z = -- 


2 
hz 


c ) 
A =b 1 h,+b 2 hz 


-~- 
t f:J "t : ~/ b,H~C 11 


b3=b,+bz 
... Pro- 
h3=e 2-h, 
gram 


-~ ___il .c 
- 
.c ;: - 
~ .; 
~ t ;: e 1 =h 2-ez 
c 


~=f-~ L 
~/r r 1 I _]( 
3 
3 
3) 


-'0 ~~· t .; 
~ b3 ~ 
.; 
~ b~ ~ 
-3 b3ez-b,h3 +b 2 e 1 


b,h,Z+ bzhl 
ez = 
-b3 
2(b 1 h 1+bzh 2 ) 
I 
I 
z, =- 
'Zz =- 
e, 
ez 


C LOAD \7D9v 
[ENTER[ 


Input 
Display 
Note 
Input 
Display 
Note 


1 
lliffil 
[!) 
HI= 
11 
ISH fT I © 
HI = 


2 (h 1) 10 
[ENTER] H2 = 
12 (h ,) 2 
[filili] 
H2 = 


3 (h z) 15 
[ENTER[ Bl= 
13 (h z) 10 
[ENTER] 
Bl= 


4 (b,) 4 
[ENTER) B2 = 
14 (b ,) 10 
[ENTER] 
B2 = 


5 (bz) 6 
[lli£8] A = 
50 
15 (bz) I 
[ENTER[ 
A = 
30 


6 
[ENTER[ 
I 
= 
1354.166667 
16 
[ENTER] 
I 
= 
196.6666667 


7 
[ENTER[ z = 
180.5555556 
17 
[ENTER[ 
Zl= 
25.65217392 


8 
18 
[_N]_Rj 
Z2 = 
84.28571431 


9 
19 


10 
20 
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SHARP 


Title 
A, I, Z OF VARIOUS SHAPES (PART 2) 
I PROGRAM NO. 


P4-D~9 


[ Example] 


a) In the drawing, h 1 = 10 em, h2 = 15 em, b1 = 4 em, b2 = 6 em 
(A= 50 cm2 , I= 1354.16 .......... cm4 , Z = 180.55 ......... cm3 ) 


c) In the drawing, h 1 = 2 em, h2 = 10 em, b1 = 10 em, b2 = 1 em 
(A= 30 cm2, I= 196.66 ······ cm4 , Z1 = 25.65 ········· cm3 , Z2 = 84.28 ········ cm3 ) 


[ Operation ] 


CLOAD vDgv 
!ENTER I 
r 


·········. In the case of drawing a) 


Selection 
~ . · · · · · · · · · In the case of drawing b) 


[g · · · · ·. ·... In the case of drawing c) 


(hJ) 
(ENTER] 


(h2) 
[Elliii] 


(bJ) [illii] 


(b2) L®RJ 
(A) 
(I) 


NOTE (Z) 


NOTE) When[gis selected, two outputs are delivered for Z (namely, Z1 and Z2). 


Input 
Display 
Note 
Input 
Display 
Note 


1 
11 


2 
12 


3 
13 


4 
14 


5 
15 


6 
16 


7 
17 


8 
18 


9 
19 


10 
20 


Title 
A, I, Z OF VARIOUS SHAPES 
l 


PROGRAM NO. 


(PART 2) 
P 4- D- 9 


Memory content 


A 
1 
A 


8 
2 
bl 
c 3 
blhl 
10: "A":GOSUB 500 
20: A=D-C 


D 4 
b2h2 
30: I=(F-E)/12:Z=2*I/G 


E 5 
bl hl3 
40: PRINT "A=",A 
50: PRINT "I=",I 


F 
6 
b2hl 
60: PRINT "Z=",z 


G 
70: END 
7 
h2 
80: "B":GOSUB 500 


H 8 
hl 
90: A=D+C:E=-E:GOTO 30 
100: "C":GOSUB SOD 
I 
9 
I 
110: K=(C*H+D*G)/2/(C+D) 
J 10 
b2 
120: A=D+C 
130: I=((B+J)*KA3-B*(K-H)A3+J*(G-K)A3)/3 
K 11 
e2 
140: Z=I/(G-K):Y=I/K 


L 12 
150: PRINT "A=",A 
160: PRINT "I=",I 


M 13 
170: PRINT II z 1 :II, z 


N 14 
180: PRINT "Z2=",y 
190: END 


0 
15 
500: USING :INPUT "H1 = ";H,"H2= ";G,"B1= "iB 


p 16 
,"82= "iJ 
510: C=H*B:D=G*J 


Q 
17 
520: E=C*H*H: F=D*G*G 
R 18 
530: RETURN 


322 
s 19 
T 20 
u 21 
v 22 
w 23 


X 24 
y 25 
z2 
z 26 
z C Z1) 
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SHARP 


Title 
l 


PROGRAM NO. 
IMPEDANCE IN A SERIES CIRCUIT 
P4-E-1 


[ Formula] 


Impedance in a series circuit 


R 
c 
L 
• 
/ 
1 
C:J 


z = I z I = 
R 2 + ( (j) L - -- ) 2 
C.O.J 
wC 


1 
wL--- 


() = tan-1 ( 
wC ) 
[ 
0 J 
R 


Z=R+i (wL--dc) 


[ Example] 


L = 25 
[ rnH J 
z = 310.5 
[ .a J 
c = 10 
[ t-tF J 
(j = -89.08 
[ 


0 J 


R = 5 
[ .a J 
X = 5 


f = 50 
[Hz J 
y = -310.5 


.".Z=5-310.5j 


[ Operation ] 


c LOAD 'VE1'V I ENTER I 


Input 
Display 
Note 
Input 
Display 
Note 


1 I SHFTI A 
L= 
11 


2 (L)25E-31EITERI C= 
12 


3 (C)10E-61EITERI R= 
13 
4 (R)5 
I ENTER I F( HZ) = 
14 
5 (f) 50 
I ENTER I 
15 


6 
X 
5 
16 


7 
l.illi~ y 
-310.455 ... 
17 


B 
[Nlli] 7: 
310.496 ... 
18 


9 
lEITER! PHASE -89 . 077 · · · 
( (j ) 
19 


10 
20 
-179- 


PROGRAM NO. 
Title 
IMPEDANCE IN A SERIES CIRCUIT 
P4-E-1 


Memory content 


A 1 


8 
2 
c 3 
c 


D 4 
10: "A":DEGREE :INPUT "l=";L 


E 5 
20: INPUT "C=";C 
30: INPUT "R=";R 


F 6 
f 
40: INPUT "F< HZ>="; F 
G 7 
50: F=2*7L*F 
60: l=l*F 
H 
8 
70: C=C*F 
I 
9 
v 
80: I=L-1/C 
90: Z=f<R*R+I*O 
.J 10 
100: X=ACS ( R/ Z) 


K 11 
110: IF O>ILET X=-X 
120: USING 


L 12 
L 
130: PRINT "X",R 


M 13 
140: PRINT "Y" ,I 
150: PRINT "Z",z 


N 14 
160: PRINT "PHASE", X 


0 
15 
170: END 
172 
p 16 


Q 17 
R 18 
R 
s 19 
T 20 
u 21 
v 22 
w 23 


X 24 
Phase 
y 25 
z 26 
z 
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SHARP 


Title 
IMPEDANCE IN A PARALLEL CIRCUIT 
I 


PROGRAM NO. 
P4-E-2 


[ Formula] 


Impedance in a parallel circuit 


L 
I 


r--""'()o ~ 
Z=IZI= 
CnJ 


c 
I 
_!_ + c-~- - 
(j) c y 
R 2 
w L 


~ 


/""'\ 
I 
) 
(} = tan-1 R(---wC 
c 
0 J 


c::t 
wL 


I 
Z= 
I 
I 
) 
--j (---we 
R 
w L 


[ Example] 


[I ~ 40 
c rnH J 
z = 7.07 
c .Q, J 
c = 0.5 
[ ,uF J 
(} = 27.88 
c 


0 
J 


R = 8 
c .Q, J 
X = 6.251 


f = 60 
[Hz J 
y = 3.307 
:.z = 6.251 + 3.307 j 


[ Operation ] 
c LOAD 'V E 2 \l 
iENTI_R] 


Input 
Display 
Note 
Input 
Display 
Note 


1 m.ITJA 
L= 
11 


2 (L)40E-3 [ENTER[ C= 
12 


3 (C)).5E-6 [ENTER[ R= 
13 


4 (R) 8 
[ENTER I F(Hz)= 
14 


5 (f)60 
[ENTER[ 
15 


6 
X 
6.2507 ... 
16 


7 
[ijillj y 
3.3066 ... 
17 


8 
[ijm 1 z 
7.0714 ... 
1 8 


9 
rtNilll 
PHASE 27.8792 · · · 
((}) 
19 


10 
20 
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PROGRAM NO. 
Title 
IMPEDANCE IN A PARALLEL CIRCUIT 
P 4- E- 2 


Memory content 


A 1 


8 
2 
c 3 
c 


D 4 
10: "A":DEGREE :INPUT "L=";L 
20: INPUT "c:z••; c 
E 5 
30: INPUT "R=";R 


F 6 
f 
40: INPUT "F(HZ)=";F 
SO: F=2*J[*f 


G 7 
60: L=L*F 


H 8 
70: C=C*F 
80: I=1/L-C 
I 
9 
v 
90: R=1/R 


J 
10 
100: Z=J<R*R+I*I) 
110: X=ACS ( R/ Z) 


K 11 
120: IF O>ILET X=-X 


L 12 
L 
130: Z=1/Z 
140: R=Z*COS X 
M 13 
150: I=Z*SIN X 
160: USING :PRINT "X",R 


N 14 
170: PRINT "Y",I 
0 15 
180: PRINT "Z",Z 
190: PRINT "PHASE", X 
p 16 
200: END 
Q 17 
204 


R 18 
R 
s 19 
T 20 
u 21 
v 22 
w 23 


X 24 
Phase 


y 
25 
z 26 
z 
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SHARP 


Title 
I 


PROGRAM NO. 
SELF-INDUCTANCE ON A STRAIGHT LINE 
P4-E-3 


[ Formula] 


Computing the self-inductance on lead wire or printed wire 


4 l 
L 
C,u H J = 0 . 002 t(ln--1) 
d 
lli_L 
( 
4 l 
~r ) 
( 
()d 
Lo [~HJ=0.002l 
I n---1+-- 
d 
4 


' 
Where p : relative permeability 


When the frequency is fairly high, use the 
upper equation, and when low, use the lower. 


[ Example] 
[I "8 
[em] 


d = 0.2 [em] 
Answer L = 0.07 [pH] 


[ Operation ] 


c LOAD 
'V E 3 'V 
!EITERI 


*When the frequency is low and Pr is taken into account. 


[SIIflJ 
~ 


~r I ENTER I 


l 
I ENTER[ 


d 
I ENTER I 


Input 
Display 
Note 
Input 
Display 
Note 


1 [Sffi] 
~ L= 
11 


2 (l)8 
I ENTER! D= 
12 


3 (d)0.2 
[llif~ 
13 


4 
L 
6.52027 IE-02 
14 


5 
15 


6 
16 


7 
17 


8 
18 


9 
19 


10 
20 
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Title 
SELF-INDUCTANCE ON A STRAIGHT LINE 
I PROGRAM NO. 


P 4- E 
3 


Memory content 


A 
1 
l 


8 
2 
d 
c 3 


D 4 
10: "A":INPUT "UR=";Z 
20: INPUT "L=";A 


E 
5 
30: INPUT "D=";B 
40: L=.002*A*(LN (4*A/8)-1+Z/4) 
F 
6 
50: USHJG :PRINT "LQ",L 


G 7 
60: "B":INPUT "L=";A 
70: INPUT "D=";B 


H 8 
80: L=.002*A*(LN C4*MB)-1) 
I 
9 
90: USING :PRINT "L",L 
100: END 


..J 
10 
138 
K 11 


L 12 
L 


M 13 


N 14 


0 
15 
p 16 


Q 17 


R 18 
s 19 
T 20 
u 21 
v 22 
w 23 


X 24 
y 25 
z 26 
Jlr 
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SHARP 


Title 
I 


PROGRAM NO. 
/:-, -+Y TRANSLATION 
P4-E-4 


[ Formula] 


~. 
='; Za 
.,. 
z, 
Zz 


Zc 
ib 


fN'v 
z3 


. . 
Z 1 • Z 2 
. . . 
z = 
I 
(.O.J 
I= Z,+Z 2+Z3 
a 
. . 
zb = Zz • Z3 
(.O.J 
Z;=x;+y; 
I 


z = 23. z, 
(.O.J 
c 
I 


[Example] 


R,= 5 
Rz= 6 
( R3= 9 
[ Z, ~ !.76- o.I3 i 
( 
( 
Z b = 3 . I 0 - 
0 . 33 j 
x,= 3 
xz= -2 
x3= 5 
z 
c = 2. 09 + I. 97 j 


[ Operation ] 
c LOAD V E 4 \l 
[ENTER] 


Input 
Display 
Note 
Input 
Display 
Note 


1 [ID!] A 
Zl R= 
'11 


2 (R 1)5 
[ENTER) Zl 
X= 
12 


3 (x 1)3 
[EITER) Z2 R= 
13 


4 (Rz)6 
)ENTER) Z2 X= 
14 


5 (xz)-2 
[ENTER) Z3 R= 
15 


6 (R3)9 
[ENTER[ Z3 X= 
16 
7 (x 3)5 
[ENTER) 
17 


8 
ZA I .761 ···-1.284 ··· 
Ra 
X a 
18 


9 
'ENTER I ZB3.100 ···-3.302 ··· 
Rb 
Xb 
19 


I 0 
[ENTER[ ZC2 .091 ··· 
I .972 ··· 
Rc • X c 
20 
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Title 
!:::.-+ y TRANSLATION 
PROGRAM NO. 
P4-E-4 


Memory content 


A 
1 


8 
2 
R1 
) il 
c 3 
Xl 
1 ':!: "A":T=C:S=O:DEGRE:E 


D 4 
Rz 


) i 2 


20: INPUT 
II L 1 R=" n: 
3n· INPUT 
II L 1 X=";y 
E 5 


u. 
Xz 
40: GOSUB 600 


F 
6 
R3 
5n· GO SUB 500 
L 
o 


) i3 
- 
60: B=U:C=V 


G 7 
X3 
70: INPUT 
II Z2 R= 
11 iX 


H 8 
20: INPUT 
II Z2 
X=~~;y 


) IZ 
- 
90: GO SUB 600 
I 
9 
100: GO SUB 500 


~ 10 
Ra 
110: D=U:E=V 


) Za 
- 
120: INPUT 
11 Z3 R= 
11 iX 


K 11 
X a 
130: INPUT 
11 Z3 X= 
11 iY 


L 12 
Rb 
140: GO SUS 600 


) ib 
- 
150: GO SUB 500 


M 13 
Xb 
160: F=U:G=V 


N 14 
Rc 
170: X=S:Y=T 


) Zc 
- 
180: GO SUB 500 
0 
15 
Xc 
190: H=U:I=V 
p 16 
200: X=B*DIH:Y=C+E-I:GOSUB 780 
210: J=U:I<=V 


Q 17 
220: X= D * F I H : Y = E + G- I 


R 18 
230: GO SUB 700 
240: L=U:M=V 
s 19 
250: X=B*FIH:Y=C+G-I 
260: GO SUB 700 
T 20 
270: N=U:O=V 


u 21 
v 
280: USING :PRINT "ZA u;J;" ";!< 
290: PRINT 
11 ZB u;L;II ";M 
v 22 
v 
300: PRINT "ZC ";N;" "iO 


w 23 
500: U=J( X*X+Y*Y) 
510: V=ACS (XI L!) 
X 24 
\ 
520: IF O>YLET V=-V 


y 25 
\/ 
530: RETURN 
600: S=X+S:T=Y+T 


z 26 
610: RETURN 
700: U=X*CCS Y:V=X*SIN y 
710: RETURN 
720: END 
433 
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SHARP 


Title 
I 


PROGRAM NO. 
Y-r 6. TRANSLATION 
P4-E-5 


[ Formula] 


This program translates the impedance in a Y-shaped connection to its equivalent in a 
triangular connection. 


~ 
~- 
~Za 


zl 
Z2 


Zc 
b 


fV\N'vl 


z3 


zl = 6/Zb 
(.a J 
. . . . . . 


6 = Za Zb + Zb Zc +Zc Za 


Z2 = 6/Zc 
(.a J 
Z;=x;+y; 


z3 = 6/za 
(.a J 


[ ExampJe] 


R 
= 8 
Rb = 9 
R 
= 7 
( 
a 
3 
( 
( 
c 
6 
Xa = 
Xb =-5 
Xc = 


( ~' ~ 14 97 + 16.65 j 


z2 = 23.25 - 
9.21 j 


z3 = 26.97 - 
0. 74 j 


[ Operation ] 
c 
LOAD '7 E 5 '7 
[EllER[ 


Input 
Display 
Note 
Input 
Display 
Note 


1 I SHFT[A 
ZA R= 
11 


2 (R 0 )8 
[EllER[ ZA X= 
12 


3 (x 0 )3 
[EllER[ 
ZB 
R= 
13 


4 (Rb )9 
[EllER[ ZB 
X= 
14 


5 (x b) -5 [EllER[ zc R= 
15 


6 (RJ7 
[EITER[ zc X= 
16 


1 (x c)6 
[EllER[ 
17 


8 
Z I 14.97 ... 16.65 ... Rl. XI 
18 


9 
tmfil z 2 23 .24 ... -9 .21 ... 
R2. x2 
19 


10 
[EllER[ 
z 3 26.97 ... -o .73 ... 
R3. x3 
20 
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Title 
Y -+ 6. TRANSLATION 
I PROGRAM NO. 


P4-E-5 


Memory content 
A 1 
v 


B 2 
) Za 
c 
10: "A":DEGREE :INPUT "ZA R=";X 
3 
20: INPUT "ZA X=";Y 


D 4 
) ib 
30: GOSUB SOD 


E 
40: B=U:C=V 
5 
SO: INPUT "ZB R=";x 


F 6 
) Zc 
6D: INPUT "ZB X=";y 


G 
70: GOSUB SDO 
7 
8D: D=U:E=V 
H 8 
D.. 
9D: INPUT "ZC R=";x 


) 
1DD: INPUT "ZC x=··;v 
I 
9 
110: GOSUB SDO 
,J 10 
) Za 
12D: F=U:G=V 
13D: X=O:Y=O 
K 11 
140: FOR A=4TO 7 
L 12 
1SD: H=B*A( A) 
) zl 
16D: A=A+1 
M 13 
17D: I=C+A( A) 
N 14 
180: X=X+H*COS I 
) Zz 
- 
19D: Y=Y+H*SIN I 


0 15 
2DD: NEXT A 
p 16 
v 
210: H=D*F 
22D: I=E+G 
Q 17 
230: X=X+H*COS I 
R 18 
240: Y=Y+H*SIN I 
25D: GOSUB 500 
s 19 
260: H=U:I=V:P=10 


T 20 
270: FOR A=2TO 7 
28D: X=H/ A( A) 
u 21 
I z I 
290: A=A+1 
v 22 
300: Y=I-A( A) 
(} 
310: A(P)=X*COS y 
w 23 
320: P=P+1 
330: A(P)=X*SIN y 
X 24 
v 
340: P=P+1 
y 25 
v 
350: NEXT A 
360: PRINT "Z1 ";L;" "; r·1 
. 
z 26 
370: PRINT "Z2 ";N;u ";O 
38D: PRINT "Z3 ";J;II ";K 
SOD: U=[< X*X+Y*Y) 
510: V=ACS ( X/U) 
520: IF O>YLET V=-V 
530: RETURN 
540: END 


452 
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SHARP 


Title 
CAPACITANCE ACROSS TWO PARALLEL 
I 


PROGRAM NO. 
ELECTRODES 
P4-E-6 


[ Formula] 


E+ 


Length 
L [em] 
/ 
Width 
W [em] 


L 
~r-t 


Inductivity 
Er 


Space 
d [em] 


~L 
Vw 
(Er = 1 : air) 


I 


C [ pF J = 0.08854!9 


€r L W 
( I+ P ) 
d 


r 


( 100 W > L ) 


Where 
P= 


-d-( I+ In 2 nW ) : ( L ~ 100 W ) 
nW 
d 


[Example] 


I ) 
2) 
l 
e, ~ I 
l 
f' 


=I 


d 
= 0.01 
C em J 
= 0.01 
[em J 


L 
= 20 
C em J 
= 300 
C em J 


W =I 
[ em J 
= 3 


Answer 177.08 C pF J 
Answer 
8040.99 
[ pF J 


[ Operation ] 


C LOAD V'E6V' lill!11l 


Input 
Display 
Note 
Input 
Display 
Note 


1 I SHFT[ A 
L ( CM) = 
11 


2 ( L)20 
1EITER[ we eM)= 
12 


3 (W) I 
[EllER[ D( CM) = 
13 


4 (d). OJ 
[ENTER[ ER= 
14 


5 (e,) I 
[EllER[ 
15 


6 
c 
177.0838 ( PF) 
16 


7 
17 


8 
18 


9 
19 


10 
20 
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Title 
CAPACITANCE ACROSS TWO PARALLEL 
PROGRAM NO. 
ELECTRODES 
P 4- E- 6 


Memory content 


A 1 
L 


B 2 
w 
c 3 
d 


D 4 
O:r 
10: "A":INPUT "L(OD=";A 
20: INPUT "W(CM)=";B 


E 5 
30: INPUT "D(Cf-1) =" ;c 


F 6 
40: INPUT "ER=";D 
SO: IF (100*B)>ALET P=O:GOTO 70 


G 7 
60: P=C/X/B*(1+LN (2*lt*B/C)) 


H 
70: Q=0.0885419*D*A*B/C*(1+P) 
8 
80: USING :PRINT "C 
"; Q;" (PF)'' 


I 
9 
90: END 
155 
,J 10 


K 11 
L 12 


M 13 


N 14 


0 15 
p 16 
v 


Q 17 
c 


R 18 
s 19 
T 20 
u 21 
v 22 
w 23 


X 24 
y 25 
z 26 
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SHARP 


SECTION, DEAD LOAD AND CENTROID OF A 
PROGRAM NO. 
Title 
POLYGON 
p4-F-1 


[ Formula] 


This program fmds the sectional area and centroid of a polygon from its latitude and departure. 


[Example] 


I 0.200 
I 
O.i_50 
I 
I~ 
I 
I -- 
y 


~.360&, 


-------- 


: 0.250 0,310 
r=2. 0 [ t/m'] 
I 
-0.700 
-- ------ ® ® 
L A=3. 501 [ m'] 


(J) ------ -- 
W=7. 0 0 3 ( t) 


2.50 


-2.16 
Xc=O. 98 0 (m) 


Yc=l.231(m) 


0.390 
u 
0.10 
I 
- 


0.600 ( 


CD 
ell 


® 
®~ -0.600 


@) 
X 


@ 
---------- 
--------- 
-1,900 


[ Operation ] 
c LOAD vF1v 
[ENTER[ 


NOTE) 6X and 6Y are, when input, accompanied by a sign 
respectively. 


Input 
Display 
Note 
Input 
Display 
Note 


1 
I SHFT[ 
@ 
11 
2 ( Xo) 0 lffi® Xo=O 
12 L'J( n-1.9[ENTER[ LVC=-1.9 


3 (Yo) 
0 [ENTER I Yo=O 
13 I'::,Yn 0 
[ENTER[ I'::,Y=O 


4 
C r) 
2 [HfER] R =2 
14 
A=3.5015 


5 ( L::X l 0 ~ill]] DX=O 
15 
[ENTER[ 
W=7. 00 3 0 


6 \6Y1.6 [ffit]J DY=.6 
16 
[ENTER[ XG=O. 98 0 4 


7 16X 2 • 39 lffilR.I DX=.39 
[ENTER[ YG=I.2313 


Rechecking 
17 
permissible 
8 \6Y 2 
0 lEN@ DY=O 
18 
[ENTER[ 


9 (L::X, .25 IENHR] DX= .2 5 
19 


10 't::,Y 3 2.5[ENTER[ DY=2. 5 
20 
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Title 
SECTION, DEAD LOAD AND CENTROID OF A 
PROGRAM NO. 
POLYGON 
P4-F-l 


Memory content 


A 1 
Ai 


B 2 
Xo 
c 
10: "A": CLEAR 
3 
Xi 
20: INPUT "XO= ";B,"YO= ";D,"R= ";K 


D 4 
Yo 
30: C=B:E=D 
40: BEEP 
2:INPUT "DX= ";F,"DY= ";G 


E 5 
Yi 
SO: A=F*G/2 :H=H+A 
F 6 
,6X 
60: I=I+A*( F*2/3+C) 
70: J=J+A*(G/3+E) 
G 7 
6Y 
80: A=F*E:H=H+A:J=J+A*E/2 


H 
8 
IAi 
90: I=I+A* ( F /2+C) 


100: C=C+F:E=E+G 
I 
9 
IAx i 
110: IF C<>BGOTO 40 


.J 10 
IAyi 
120: IF E<>DGOTO 40 
130: PRINT USING "#######.####";"A=",H 


K 11 
T 
140: PRINT "W=" ,H*K 


L 12 
150: PRINT "XG=",I/H 
160: PRINT "YG=",J/H 


M 13 
170: GOTO 130 


N 14 
266 


0 15 
p 16 


Q 17 
R 18 
s 19 
T 20 
u 21 
v 22 
w 23 


X 24 
y 25 
z 26 
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SHARP 


Title 


PROGRAM NO. 
COULOMB'S COEFFICIENT OF EARTH PRESSURE 
P4-F-2 


[ Formula] 


This program determines the coefficient of active earth pressure from coulomb's earth pressures. 


In seismic case 


KEA= 
cos 2( ~-{} 0 -{} ) J sin ( ~+IJ) -sin ( ~-a--fJo) 
cos(} o cos 2 f} cos ( fJ+fJo+IJ )[ 1 
( {}+(} 
) 
s( fj 
) ) 
2 
cos 
o+IJ 
•CO 
-a 


In permanent case 


KA=KEA (8o=O) 


a: angle closed by earth surface and level surface 


1/>: 
internal friction angle of back-filling soil 


8: angle closed by wall back surface and horizontal surface 
5: angle closed by wall back surface normal line and earth pressure active direction 


[Example] 


~ = 35 ° 


{}=21.48° 


Bo = 1 I. 1 9 ° 


IJ=O 


KA=.4348 


KEA= .5858 


a~' 0 


[ Operation ] 
c LOAD V F 2 V [ENTER[ 


Input 
Display 
Note 
Input 
Display 
Note 


1 I SHFT[ 
~ 
11 


2 ( ¢) 3 5 
[ENTER[ PHI=35 
12 


3 (a) 0 
[ENTER[ ALPHA=O 
13 


4 ( (} ) 21.48[ENTER[ THETA=21.48 
14 


5 ((}o) 1l.19[ENTER[ THETA 0=11.19 
15 


6 (iJ) 0 
[ENTER] DELTA=O 
16 


7 
KEA=O. 5 85 886 
17 


8 
18 
9 
19 


10 
20 
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Title 
COULOMB'S COEFFICIENT OF EARTH PRESSURE 


PROGRAM NO. 
P4-F-2 


Memory content 


A 1 
¢ 


8 
2 
a 


c 3 
(} 
10: "A":DEGREE :INPUT "PHI= ";A,"ALPHA= ";8 
20: INPUT "THETA= ";C,"THETA 0= ";D,"DELTA= 


D 4 
Oo 
";E 


E 5 
b 
30: F=COS (A-D-C) "2 
40: G=COS D*COS C"2*COS (C+D+E) 


F 6 
cos 2( ¢ -(}0 -(}) 
SO: H=/CSIN (A+E)*SIN (A-8-D)/(COS CC+D+E)* 


G 7 
v 
COS CC-8))) 


60: I=F/C (1+H) "2*G) 


H 8 
v 
70: USING "#####.######" 


I 
9 
KEA 
80: IF D=OPR !NT "KA=" ;I: END 
90: PRINT "KEA=";I:END 


~ 10 
216 


K 11 
L 12 


M 13 


N 14 


0 
15 
p 16 


Q 17 
R 18 
s 19 
T 20 
u 21 
v 22 
w 23 


X 24 
y 25 
z 26 
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SHARP 


Title 


PROGRAM NO. 
STABILITY OF A SLOPE (METHOD OF SLICES) 
P4-F-3 


[ Formula] 


This program computes the safety factor of a slope which possesses Ci and 8 i. 


L C · • l + L W · • cos a · • tan~ · 
z 
z 
z 
z 
z 


F = 
s 
LW··Sina· 
z 
z 


where 
wi 
weight of soil above sliding surface 


R 
radius 


CX.j 
angle closed by divided area and vertical line 
ei 
central angle for each soil layer 


'Yi 
weight per soil's unit volume 


pi 
internal friction angle of soil 


ci 
cohesion of soil 


l i 
length of arc 


See the figure below 


~lW4W3w 2 


ft. (}3 
2 
~Wl 


1/ 


J~l 
,"'-.. 
1st soil layer 


r 
·('~ )/lz 
2nd soil layer 


I 
~ / 
I 1\ 4/113 
3rd soil layer 


i;/ 
! 
4th soil layer 


I 
/1/l!!l///1/ 


Input 
Display 
Note 
Input 
Display 
Note 


1 
11 


2 
12 


3 
13 


4 
14 


5 
15 


6 
16 


7 
17 


8 
18 


9 
19 


10 
20 
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SHARP 


Title 
STABILITY OF A SLOPE (METHOD OF SLICES) 
PROGRAM NO. 


p4~F-3 


[Example] 


R =15m 
( t/m) 
(degrees) 


1st layer 
81=21.8° 
w = 
I 
0. 5 78 
a 1 =69.8 cl =3. 0 t/m 


w = 
2 
3. 6 40 
a 2 =62.4 
¢1=180 


w = 
3 
5. 985 
a3 =55. o 


2nd layer 8 2 =34.0 ° 
w = 
4 
8. 7 32 
a 4 = 48.3 
C 2 =4. 0 t/m 


w = 
5 
9. 588 
a 5 = 42.6 
¢2 =0 0 


W6 = 1 o. 863 
a 6 =37.6 


W7 =11.913 
a 7 = 33. o 


W8 = 12. 813 
a 8 = 28.5 


W9 =11.605 
a 9 = 2 4. o 


w!o= 
8. 804 
a!o= 20.0 


3rd layer 83=11.2° 
w = 
11 
6. 7 3•0 
a 11 = 15.6 
c3 =5. 0 t/m 


w = 
12 
5. 183 
a 12 = 1 2. o ¢3 =2 3 0 


w 
~ 
ll- 
0. 805 
al3= 8. 1 


[ Operation ] 


LOAD vF 3v 
c 
[ENTER[ 
I SHFT] [!] 
R 
[UTER] 


(w~ [Eiill] 
az lfiill] 


(Oin 
[ENTER[ 
>- Every data for one layer 
Wn 
[ENTER[ 


[ENTER[ 


(} 
[ENTER] 


c 
[ENTER] 
¢ 
[ENTER] 
,; 


[SID] ~ 
FS 


Input 
Display 
Note 
Input 
Display 
Note 


1 
ISH FT I 
[!] 
11 (C) 3 [ENTER[ 
C=3 


2 (R) 1 5]ENTER] R=15 
12 ( ¢ ) 1 8 ]ENTER] 
PHI=18 


3 
(W 1) • 578 [fiE!] W=.57 8 
13 
Repeat step 3 and the subsequent. 


4 (a 1) 69.8]ENTER] ALPHA=69.8 
14 


5 (W 2) 3.64]ENTER] W=3. 64 
15 
ISH FT I 
~ F S= 1. 4 3 9 8 3 7 


6 (a 2) 62 .4 [E!ill] ALPHA=62. 4 
16 


7 
(W 3)5.985]ENTER] W=5. 985 
17 


8 
(as) 55 ]ENTER] ALPHA=55 
18 


9 
]ENTER] 
19 


10 (8)21.8 
]ENTER] THETA=21. 8 
20 
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Title 
STABILITY OF A SLOPE (METHOD OF SLICES) 
PROGRAM NO. 
P4-F-3 


Memory content 


A 1 
¢ 


8 
2 
w 
c 3 
a 
10: "A":DEGREE :CLEAR 


D 4 
R 
20: INPUT "R= ";D 
30: B=O:BEEP 
1:INPUT "H= ";B 


E 5 
.};WCOS a 
40: IF B=OGOTO 80 


F 
6 
.I; W sin a 
50: INPUT "ALPHA= ";C 
60: E=E+B*COS C:F=F+B*SIN c 
G 7 
{) 
70: GOTO 30 


H 
80: INPUT "THET.t1= ";G,"C= ";H,"PHI= ";A 


8 
c 
90: I=I+E*TAN A 


I 
9 
.I; W sin a tan {) 
100: J =J+Jr*D*G*H/180 


J 10 
.I;l•C 
110: E=O:GOTO 30 
120: "B" :K=(I+J) /F 
K 11 
FS 
130: PRINT USING "####tl.fi#####";"FS=";K 
140: END 
L 12 
209 


M 13 


N 14 


0 15 
p 16 


Q 17 
R 18 
s 19 
T 20 
u 21 
v 22 
w 23 
X 24 
y 25 
z 26 
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1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


SHARP 


Title 
BENDING STRESS OF SIMPLE GIRDER 
PROGRAM NO. 


P4-F~4 


[ Formula] 


When a concentrated load P acts on an simple H-shaped steel girder - 
see below - 
with span l. 


[ Operation ] 


C LOAD Vp 4 V [ENTER[ 


Input 
Display 
Note 


ISH FT I ~ 
11 


( f ) 4 0 
[ENTER[ F=40 
12 
(t)1.8 [ENTER[ T=1.8 
13 


( h ) 4 0 
[ENTER[ H=40 
14 


( h ') 36.4 [ENTER[ H*=36.4 
15 


( p) 13000 [!lli.Jij P=13000 
,..,..._ 
16 


( I ) 10000 I ENTER I L=10000 
17 


(a) 5000 
[ENTER[ A=5000 
18 


(b)5000 [ENTERj B=5000 
19 
RA=6500 
20 
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Reaction force: 


P•b 
RA=-- 
l 


Bending moment: 


Mx=RA•a 


Section modulus: 


P•a 
Re=-- 


l 


W=(f ·h 3-h' 3 • ( f-t ))/6h 


Stress 
Mx 
IJ=-- 
w 


[Example] 


f=40(em) 


t=l.8(em) 


h=40(em) 


h'=36.4(em) 


p=13000(Kg/em) 


l=1 0000 (em) 


a=5 00 0 (em) 


b=5000 (em) 


Input 
Display 


[ENTER[ RB=6500 


[ENTER[ MX= 32500000 


[ENTER[ SIGMA= 10868.51079 


[ENTER[ 
Repeat step 6 and 
the subsequent. 


Note 


1- 


PROGRAM NO. 
Title 
BENDING STRESS OF SIMPLE GIRDER 
P4-F-4 


Memory content 


A 1 
w 


8 2 
f 
c 3 
t 


D 4 
h 
10: II A": INPUT "F= ";B,"T= ";C,"H= ";D,"H*= 
";E 


E 5 
h' 
20: BEEP 
2 


30: INPUT "P= ";F,"L= ";G,"A= ";H,"B= ";I 
F 6 
p 
40: J=F*IIG:M=F*H/G 
G 7 
l 
50: K=J*H 
60: A=(B*DA3-EA3*(G-C))/(6*D) 
H 8 
a 
70: L=K/A 


I 9 
b 
80: USING :PRINT "RA=",J 
90: PRINT "RB=" ,r.1 


J 10 
RA 
100: PRINT "MX=",K 


K 11 
MX 
110: PRINT "SIGMA=",L 
120: GOTO 20 


L 12 
(} 
197 


M 13 
Rb 


N 14 


0 15 
p 16 


Q 17 


R 18 
s 19 


T 20 
u 21 
v 22 
w 23 


X 24 
y 25 
z 26 
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1 


2 


3 


4 


5 


6 


7 


8 
9 


10 


SHARP 


Title 
INTERNAL FORCE OF A SIMPLE GIRDER 
(UNIFORM LOAD) 
1 


PROGRAM NO. 
p4-F-5 


[ Formula] 


This program computes the reaction force, shearing force, bending moment, and maximum 
bending moment of a simple girder that is subjected to a uniform load, shown below, 


c 
A 1\ 
I 
'--r::::l----- X ----1 
I 


Total load: 


W=ql 


Reaction force: 
w 
RAI = RAz =- 
2 
Max. bending moment: 


L_q v 


[Example] 


l=l5(m) 


q=3 ( t/m) 


x=2, 4, 8,12 (m) 


The shearing force (Sc) and the bending moment (Me) at point C which is X- arbitrary 
distance - 
apart from support A. 


l 
Sc=q( 2 -x) 


Me = q x ( l - 
x ) /2 


[ Operation ] 


C 
LOAD v F 5 v 
[ENTER[ 


Input 
Display 
Note 
Input 
Display 
Note 


I SHFT[ 
~ 
11 
[ENTER[ Repeat step 8 and the subsequent. 


( q ) 
:l 
[ENTER I Q=3 
12 


( l ) 1 5 
[ENTER[ L=l5 
13 
W=45 
14 


[ENTER[ RA,RB=22.5 
15 


[ENTER[ M-MAX =81. 3 7 5 
16 


[ENTER[ X= 
17 


( X ) 
2 
[ENTER[ X=2 
18 
SC=l6.5 
19 


[ENTER[ MC=:l9 
20 
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Title 
INTERNAL FORCE OF A SIMPLE GIRDER 
PROGRAM NO. 
(UNIFORM LOAD) 
P4-F-5 


Memory content 


A 1 


B 2 
c 3 
10: "A":INPUT "Q= ";Q,"L= ";L 
20: W=Q*L :R::W/2 


D 4 
30: M=Q*L*L/8 
E 5 
40: USING :PRINT "W= ";w 
50: PRINT "RA,RB=",R 


F" 
6 
60: PRINT "M-~1AX=" ,M 
G 7 
70: BEEP 
2:INPUT "X= "iX 
80: S=Q*(L/2-X) 
H 8 
90: T=Q*X*CL-X) /2 


I 
9 
100: PRINT "SC=",S 
110: PRIN'T "MC=",T 


J 10 
120: GOTO 70 


K 11 
162 


L 12 


M 13 
M-MAX 


N 14 


0 15 
p 16 


Q 17 
R 18 
RA,RB 
s 19 
Sc 


T 20 
Me 
u 21 
v 22 
w 23 
w 


X 24 
X 


y 25 
z 26 
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SHARP 


Title 
INTERNAL FORCE OF A SIMPLE GIRDER 
l 


PROGRAM NO. 
(UNIFORMLY VARYING LOAD) 
P4-F-6 


[ Formula] 


This program computes the internal force of a simple girder that is 
/r-r 
subjected to such a uniformly varying load as shown below. 


Total load 
~ 


w =l q . l 
/~ 
q 
2 
AA 


Reaction force 
w 
2 
RA=3 
Rs =:3W 
' 


B 


L~x.~--J 
l 
Max. bending moment 
I 
3 t 
a·- 


Q. f2 
_l_ 
l 
MMAX 
9·V3 
x=.;T 


The shearing force (Sc), bending moment (Me) and load strength (Wx = ~x ) at point C 
located X - 
arbitrary - 
from support A are computed by the equations 


Wx =wx . .!. 
2 


Sc=RA-Wx 
w c =' R A . X- w X • .!. 
3 


[Example] 


q=7(t/m) 


l=15(m) 
x=2,4,8,12,14 


[ Operation ] 


c LOAD vF6v 
~!ill] 


Input 
Display 
Note 
Input 
Display 
Note 


1 
ISH FT I 
~ 
11 
]ENTER] 
Me =34.37777778 
2 ( q ) 
7 
]ENTER] Q=7 
12 
]ENTER] 
Repeat step 9 and the subsequent 


3 ( l) 1 5 
]ENTER] L=15 
13 
4 
W=52. 5 
14 
5 
]ENTER] RA=17. 5 
15 


6 
]ENTER I RB=35 
16 
7 
]ENTER] M-MAX= 101.0362971 
17 
8 
]ENTER] X= 
18 
9 (X) 2 
]ENTER] X=2 
19 


10 
S C=16.56666667 
20 
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Title 
INTERNAL FORCE OF A SIMPLE GIRDER 
PROGRAM NO. 
(UNIFORMLY VARYING LOAD) 
P4-F-6 


Memory content 
A 1 
RA 


8 
2 
RB 
c 3 
10: "A":INPUT "Q= ";Q,"L= ";L 


D 4 
20: W=Q*L/2:A=W/3:B=W*2/3 
30: M=Q*L*LI C9•!3) 


E 5 
40: USING :PRINT "~J=" ,w 


F 
50: PRINT "RA=",A 
6 
60: PRINT "RB=",B 


G 7 
70: PRINT "M-MAX=",M 
80: BEEP 
2:INPUT "X= "iX 


H 8 
90: Y=Q-kX/L:Y=Y*X/2 
I 
9 
100: S=A-Y:T=A•X-Y*X/3 
110: PRINT •st=",S 
J 10 
120: PRINT •Mt= .. ,T 
K 11 
130: GOTO 80 


192 
L 12 
l 


M 13 
M MAX 


N 14 
0 15 
p 16 


Q 17 
q 


R 18 
s 19 
Sc 


T 20 
We 
u 21 
v 22 
w 23 
w 


X 24 
X 


y 25 
Wx 
z 26 
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SHARP 


Title 
VELOCITY OF FLOW AND FLOW RATE (MANNING'S 
PROGRAM NO. 


FORMULA AND GANGUILLET-KUTTER'S FORMULA) 
P4-F-7 


[ Formula] 


1) Manning's formula 


v ~~_1_ 


2 
l 
· Rs 
lz 
n 


where v 
average velocity of flow on the whole section of flowing water (m/sec) 
n 
manning's coefficient of roughness 


R 
hydraulic mean depth (m) (=sectional area of flowing water/wetted perimeter) 
I 
surface slope (surface difference/waterway length (h/ /)) 


From R, h, l and n are determined I, 
1 
_L 


(Chezy's coefficient) and V. 
C=-·R6 
n 
2) Ganguillet-Kutter's formula 


V=C/RI 
[Example] 


__I_+ 23 + 0.00155 
( 1 ) R=l.25(m) 
c 
n 
I 


1+(23+000155_) 
_n_ 
h = 2. 13 (m) 
I 
vR 


in which v 
average velocity of flow on the whole 
l=10(m) 


section of flowing water (m/sec) 
n = 0. 013 


R 
hydraulic mean depth (m) 
I 
surface slope 
( 2) R=0.333333(m) 
c 
Chezy's coefficient 
h=2.6(m) 


n 
coefficient of roughness 
l =10(m) 


I, C and V are determined from R,h,l 
n = 0. 01 3 
and n. 


[ Operation ] 
A program: 
Manning's formula 
c LOAD vF7v 
]ENTER] 
B program: 
Ganguillet-Kutter's formula 


Input 
Display 
Note 
Input 
Display 
Note 


1 
ISH FT I 
~ MANNING 
11 
OOil 
~ G.KUTTER 


2 ( R) I. 2 5 ]ENTER] R= 1. 2 5 
12 (R).333333 ]ENTER] R=.333333 


3 ( h ) 2. 1 3 ]ENTER] H= 2. 1:1 
13 (h) 2. 6 ]ENTER] H=2.6 


4 ( l ) 1 0 
]ENTER] L=JO 
14 ( l) 1 0 
]ENTER] L=10 


5 (n) .013 
]ENTER] N= .013 
15 (n) .013 
[®.RJ N=.O 13 


6 
1=0.213 
16 
1=0. 26 


7 
[ENTER] C= 79.83775504 
17 
lffiE] C=65.82863921 


8 
]ENTER] V=41.19581743 
18 
]ENTER] V= 19.37941697 


9 
19 


10 
20 
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VELOCITY OF FLOW AND FLOW RATE (MANNING'S 
PROGRAM NO. 
Title 
FORMULA AND GANGUILLET-KUTTER'S FORMULA) 
P4-F-7 


Memory content 


A 1 


B 2 
c 3 
c 
10: "A":PAUSE "MANNING" 
20: INPUT "R= "iR,"H= "iH,"L= "iL,"N= "iN 


D 4 
30: I=H/L:C=RA(1/6)/N 


E 5 
40: V:::RA(2/3)*{I/N 
SO: USING :PRINT "I=",I 
F' 
6 
60: PRINT "C=",C 
70: PRINT "V=",V 
G 7 
80: END 
H 8 
h 
90: "B":PAUSE "G.KUTTER" 
100: INPUT "R= ";R,"H= "iH,"L= ";L,"N= "iN 
I 
9 
I 
110: I=H/L 
J 10 
120: C=(1/N+23+.00155/I)/(1+(23+.00155/I)*N/ 


{R) 
K 11 
130: V=C*.f( R* I> 


L 12 
l 
140: GOTO 50 
250 


M 13 


N 14 
n 


0 15 
p 16 


Q 17 
R 18 
R 
s 19 
T 20 
u 21 
v 22 
v 


w 23 


X 24 
y 25 
z 26 


-205- 


SHARP 


Title 
PROGRAM NO. 
VELOCITY OF FLOW AND FLOW RATE 
P4-F-8 


[ Formula] 


(1) Hazen-William's formula (open channel) 


V=0.84935 C • R 0• 63 
I o. s4 


v 
average velocity of flow (m/sec) 
c 
coefficient of velocity 
R 
hydraulic mean depth (mJ 


I 
hydraulic gradient (I= T) 
l 
channel length (m) 
h 
surface difference (m) 


I and V are found from R, h, I and C. 


(2) Hazen-William's formula (closed channel) 


V = 0. 3 54 6 4 C · Do. 63 • I o. s 4 
(average velocity m/sec) 


Q = 0. 2 78 53 c . D 2. 6 3 • I o. s 4 
(flow rate m2 /sec) 


I =h 
l 
(hydraulig gradient) 


D 
pipe diameter 
[ Example] 
c 
coefficient of velocity 
h 
surface difference (m) 
( 1) 
R=I.25(m) 


l 
channel length (m) 
h=2.13(m) 


This program determines V and Q from 
l = 10 (m) 


D,h,l and C. 
c = 100 


[ Operation ] 
(2) 
D=0.6(m) 


h=2.13(m) 
c LOAD VF8v 
(ENTER( 
l=10(m) 


~ program: 
Open channel 
c = 100 


~ program: 
Closed channel 


Input 
Display 
Note 
Input 
Display 
Note 


1 
ISH fT I 
~ H.W 1 
11 
ISH fT I 
~ H.W 2 
2 ( R) I. 2 5 (ENTER( R=l.25 
12 ( D).6 
(ENTER( D=.6 


3 ( h ) 2. 1 3(ENTERI H=2. 13 
13 ( h ) 2. 1 3(ENTER( H=2. 13 


4 ( l) 10 
(ENTER( L=1 0 
14 ( l ) 1 0 
I!N:illl L=10 


5 (C) 100 (ENTER( C=100 
15 (C) 1 0 0 (ENTER( C=100 


6 
I=0.213 
16 
I =0. 213 


7 
(ENTER( V=42.40967899 
17 
(ENTER( V= 11.15187754 


8 
18 
(ENTER( Q=3.153078285 


9 
19 


10 
20 


-206- 


Title 
VELOCITY OF FLOW AND FLOW RATE 
PROGRAM NO. 
P4-F-8 


Memory content 


A 1 


8 
2 
c 3 
c 


D 4 
D 
10: "A":PAUSE "H.W 1" 


E 5 
20: INPUT "R= ";R,"H= ";H,"L= ";L,"C= ";C 
30: I=H/L 


F 6 
40: V=.84935*C*RA.63*IA.S4 


G 7 
SO: USING :PRINT "I=",I 
60: PRINT "V=",V 


H 8 
h 
70: END 


I 
9 
I 
80: "B":PAIJSE "H.W 2" 
90: INPUT "D= ";D,"H= ";H,"L= ";L,"C= ";C 


J 10 
100: I=H/L 
K 11 
110: V=.35464*C*DA.63*IA.54 
120: Q=.27853*C*DA2.63*IA.54 


L 12 
l 
130: USING :PRINT "I=",I 


M 13 
140: PRINT "V=",V 
150: PRINT "Q=",Q 
N 14 
160: END 
254 
0 15 
p 16 


Q 17 
Q 
R 18 
R 
s 19 


T 20 
u 21 
v 22 
v 
w 23 


X 24 
y 25 
z 26 


-207- 


SHARP 


Title 
PROGRAM NO. 


CHANNEL SECTION 
p 4- F- 9 


[ Formula] 


A) Rectangular section 


Sectional area 
A=B·H 
f------ B- 


Wetted perimeter 
S=B+2H 
- 
' 
Hydraulic mean depth 
R=A/S 
7 


B) Triangular section 


A=l B · H 
2 


S=2 x/H 2 +l B 2 
I~ 


4 


R=A/S 
7 
C) Trapezoidal section 


1 
A=BH+H 
2 Xtan(} 


~---r- 
1 
S=B+2HXsin(} 
___ j_ 


R=A/S 


[ Operation ] 
c LOAD vF9v 
@Eli] 


~program: Rectangular section 


~program: Triangular section 


~program: Trapezoidal section 


[Qj program: 
Circular section 


Input 
Display 
Note 
Input 
Display 
Note 


1 
Lill!J 
~ 
RECTANGLE 
11 
[Sill] [!:!] 
TRIANGLE 


2 (B) 4 
[ijTE~ 
B~4 
12 (B) 4 llliflll 
Bcc4 


3 (H) 2 [EN ill] H=2 
13 (H) 2 [ill[~ H=2 


4 
A=8. 0000 
14 
A==4.0000 


5 
lElliru 
S=8. 0 00 0 
15 
[ENTER! 
Sc=5.6568 


6 
[ENTER[ 
R=l.OOOO 
16 
[ENTER] 
R=0.7071 


7 
17 


8 
18 
9 
19 


10 
20 


-208- 


SHARP 


Title 
CHANNEL SECTION 
PROGRAM NO. 
P4-F-9 


D) Circular section 


A cc• 
2 ( 
(} X n _ _l sin (} ) 
/\ 
r 
3 60 
2 
crJ 


(} 
S= 180 xnr 


- 
R =A/S 


[ Example] 


A. B=4 
H = 2 
-·-) 
A="8,S=8 ,R=1 


B. B=4 
H =~ 2 
~ 
A=4 . s = 5. 65 69 , R -~ 0. 7 0 7 1 


C. 
(}-=60° B = 4 
H ~~= 2 
-· 
A~ 10. 3094 , 
s = 8. 61 88 


R=l.1962 


D. 
r =~ 0. 5 
(} = 240 
~ 
A~0.6319 
s ~ 2.0944 


R ~ 0. 3 0 1 7 


Input 
Display 
Note 
Input 
Display 
Note 


1 
amJ 
rQ] 
TRAPEZOID 
11 
[S]TI] 
~ 
CIRCLE 


2 ( (} ) 6 0 iENTERI 
THETA~60 
12 
( r) .5 
I ENTER' 
R~· .5 


3 (B) 4 lEiTER I 
B~4 
13 
( (} ) 2 4 0 lfNTER; THETA-240 


4 (H) 2 
:m~ru H=2 
14 
A 
0. 6 3 1 8 


5 
A~ 1 0. 3 0 9 4 
15 
[ENTER[ S=2.0943 


6 
:ENTER I 
S=~8.6188 
16 
~ill] R~ 0. 3 0 1 6 


7 
!ENTER\ 
R==l. 1961 
17 


8 
1 8 


9 
19 


10 
20 


-209- 


PROGRAM NO. 
Title 
CHANNEL SECTION 
P4-F-9 


Memory content 
A 1 
A 


8 
2 
B 
c 3 
(} 
10: "A":PAUSE "RECTANGLE" 
20: GOSUB 500 
D 4 
30: A=B*H:S=B+2*H 
E 5 
40: GOTO 180 
50: "B":PAUSE "TRIANGLE" 
F 6 
60: GOSUB 500 


G 7 
70: A=B*H/2:S=2*[(H*H+B*B/4) 
80: GOTO 180 


H 8 
H 
90: "C":PAUSE "TRAPEZOID" 
I 
9 
100: 
110: 
INPUT "THETA= ";C:GOSUB 500 
A=B*H+H*H/TAN C 


J 
10 
120: S=B+2*H/SIN C 
K 11 
130: GOTO 180 
140: "D":PAUSE "CIRCLE" 


L 12 
150: INPUT "R= ";R,"THETA= ";C 
M 13 
160: A=R*R*(C*n/360-SIN C/2) 
170: S=C/180*7t*R 


N 14 
180: R=A/S:PRINT USING "#######.####";"A=";A 
0 
15 
190: PRINT "S=";S 
200: PRINT "R=";R 


p 16 
210: END 
500: INPUT "8= ";B,"H= ";H 
Q 
17 
510: RETURN 


R 18 
R 
337 
s 19 
s 


T 20 
u 21 
v 22 
w 23 


X 24 
y 25 
z 26 


-210- 


SHARP 


Title 
STRESS INTENSITY OF SINGLE REINFORCE 
I 


PROGRAM NO. 
REINFORCEMENT'S T-SHAPED SECTION 
P4-F-10 


[ Formula] 


B 


~///w//~r~ 


X 


d 
Overall height 
/; 
d+d' 


J, 
As 
- - - - 
d' 


'I' 
f"-Bo -j 


B t 2 
View of single reinforcement's 
ndAs +-2- 
T -shaped section 
x= 
nAs +B t 
B 
flange width 


p =As 
t 
flange thickness 
Bd 
Mo' 
bending moment ( t · m) 


nP +! ( J ) 
2 
s 
shearing force 
K= 
t 
n 
young's modulus 
nP + ( d ) 
As 
total sectional area of tension bar ( m 2 ) 
[3K 2(l)J 


X 
neutral axis position 
j = 1 _l_ (-t-) 
3 
d 
2K-(-) 
[Example] 
d 
M = 11,500,000 C Ksz • em ) 


o Tensile stress intensity of reinforcement 
S= 
33,500 (em ) 
n= 
15 


Os =pj~d2 
(t/rrt) 
As= 
85(rrt) 


o Compressive stress intensity of concrete 
B= 
170 (em) 


Bo= 
55 (em) 
Oc= 
K 
Os 
(t/?rt) 
n(1-K) 
d= 
100 ( em ) 


o Shearing stress intensity 
t = 
18 ( em ) 
s 
( t /rrt) 
'=Bojd 


[ Operation ] 
c LOAD 
vF 1 0 v [N_ill] 


Input 
Display 
Note 
Input 
Display 
Note 


1 
[SI[f] 
~ 
11 
[ENTER[ P=0.0050 


2 CMI1150000)[ENTERI M= 11 50 0 0 0 0 
12 
[ENTER] K=O. 35 7 6 


3 (S)33 500 [ENTER[ S='33500 
13 
[ENTER[ ]=0.9200 


4 ( n) 1 5 
~NTERI N=15 
14 
[ENTER] SIGMA S=1470.4477 


5 (As ) 8 5 [ENTER] AS=85 
15 
[ENTER] SIGMA C=54.5807 


6 ( B ) 1 7 0 [ENTER[ B=1 70 
I 
16 
[ENTER[ TAU=6.6199 


( Bo) 55 [ENTER] Bo=55 


I 


[ENTER[ AS-c- 
7 
I 
17 
t 


8 ( d ) 1 0 0 I ENTER I D=100 
18 (As) 6 5[ENTER[ AS=65 
__J 


9 ( t ) 
1 8 [ENTER] T=18 
19 
Repeat step 10 and the subsequent 


10 
X=35. 7 64 7 
20 


-211- 


Title 
STRESS INTENSITY OF SINGLE REINFORCE 
PROGRAM NO. 
REINFORCEMENT'S T-SHAPED SECTION 
P4-F-10 


Memory content 


A 1 
AS 


8 
2 
B 
c 3 
Bo 


D 4 
d 
1 0: II A" :INPUT 
"r~= ";r.1,"S= ";s,"N= ";N,"AS= 


";A 
E 5 
t 
20: INPUT "B= ";B,"BO= ";C,"D= ";D,"T= ";T 


F 6 
i}s 
30: X=(N*D*A+B*T*T/2) /(N*A+B*T) 
40: P=A/8/D 
G 7 
iJc 
50: K=(N*P+(T/D)A2/2)/(N*P+T/D) 


H 8 
60: J=1-T/D*(3*K-2*T/D)/(2*K-T/D){3 


' 
70: F=M/ ( P*J*B* D* D) 


I 
9 
80: G=K/ (N* (1-K))* F 


J 
10 
j 
90: H=S/(C*J*D) 
100: PRINT USING "ll######flfl.#ti##";"X=";X 


K 11 
K 
110: PRINT "P=";p 


L 
120: PRINT "K=";K 


12 
130: PRINT "J=";J 
M 13 
M 
140: PRINT "SIGMA S=";F 
150: PRINT "SIGr,1A C=";G 


N 14 
n 
160: PRINT "TAU=";H 


0 15 
170: INPUT "AS= ";A 
180: GOTO 30 
p 16 
p 
350 


Q 
17 
R 18 
s 19 
s 


T 20 
t 
u 21 
v 22 
w 23 


X 24 
X 
y 25 
z 26 


-212- 


SHARP 


Title 
SECTION OF SINGLE REINFORCEMENT'S 
PROGRAM NO. 
T-SHAPED GIRDER 
P4-F-ll 


[ Formula] 


B 
B 
: flange width 
! 
t 
: flange thickness 


t 
n 
: ratio of moduli of elasticity 


I 
Mo : maximum bending moment 


(t· m) 


d Overall aca : allowable compressive stress 
height 
of concrete (t/m 2 ) 
a sa : allowable tensile stress of 


/Covering; 
reinforcement (t/m 2 ) 


As 
X 
: neutral axis position 
------ 
As' : sectional area of tension bar 
Reinforce- , 


ment 
As : sectional area of compressive 


View ofT-shaped girder 
reinforcement 


1 
[ Example] 


W= '.fk 
As'= 
M 
t 
1 
1 
(] sa(d--2 ) 
M = 1 I ,50 0,0 0 0 (Kg ·em) 


m =4 ( 1 +k ) 
6 c a= 
55 (Kg/cnl) 


M 
k = 
n(}ca 
Z=2(}caBt+mt 
Osa+nOca 
Os-a= 
I, 4 0 0 (K9/cn1) 


d'=Z+/Z 2 -Wt 2 
n= 
1 5 


x=kd 
t =' 
1 7 (em) 


As= OcaBt (1-l_) 
B= 
1 7 0 (em) 


Osa 
2t" 
d= 
125 (em) 


[ Operation ] 


c LOAD vF 11v [ijij] 


Input 
Display 
Note 
Input 
Display 
Note 


1 
ISH FT I 
~ 
11 
]EllER] W=0.8989 
I 


2 M)l1500000]ENTER] M=11500000 
12 
[EITER] Z=51.8870 


3 (n)15 [ENTER] N=15 
13 
[EITER[ D*=101.2069 


4 ((} ca) 55 [ENTER] SIGMA C =55 
14 
[ENTER] X=37. 52 61 


5 ((}sa) 1400[ENTER[ SIGMAS=1400 
15 
[ENTER] AS=87. 8188 


6 ( t ) 1 7 
[ENTER[ T=17 
16 
room AS*=70.5088 


7 ( B) 1 7 0 [ENTER] B=170 
17 


8 
C d) 12 5[ltTERI D=125 
18 


9 
K=O. 37 07 
19 


10 
[ENTER] SM=O. 9 24 2 
20 


-213- 


Title 
SECTION OF SINGLE REINFORCEMENT'S 
I PROGRAM NO. 
T-SHAPED GIRDER 
P4-F-11 


Memory content 


A 1 


8 
2 
B 
c 3 
d ca 


D 4 
d 
1 0: "A": INPUT "M= ";M,"N= ";N,"SIGMA c= ";c 


,"SIGMA S= ";s 
E 5 
d' 
20: INPUT "T= ";T,"B= ";B,"D= ";O 


F 6 
AS' 
30: F=M/S/(0-T/2) 
40: K=N*C/(S+N*C) 


G 7 
AS 
SO: W=1/3/K:L=(1+1/K)/4 


H 8 
60: Z=M/(2*C*B*T)+L*T 
70: E=Z+J( Z*Z-W*T*T> 
I 
9 
80: X=K*E 


J 10 
90: G=C*B*T/S*(1-T/2/X) 
100: PRINT USING "#########.####";"K=";K 
K 11 
k 
110: PRINT "Sr·1=" ;L 


L 


120: PRINT "W=";w 
12 
m 
130: PRINT "Z=";z 


M 13 
M 
140: PRINT "D*=";E 
150: PRINT "X=";x 


N 14 
n 
160: PRINT "AS=";G 
0 15 
170: PRINT "AS*=";F 
180: GOTO 100 
p 16 
311 


Q 17 


R 18 
s 19 
dsa 


T 20 
t 
u 21 
v 22 
w 23 
w 


X 24 
X 


y 25 
z 26 
z 


-214- 


SHARP 


1 


PROGRAM NO. 
Title 
GRAPHIC CALCULATION 
P4-G- 


Inputting a figure 
y 
Straight line: Enter the coordinates of a point 
on it and an angle required. 
~Ll 
I x-coordinate, y-coordinate, angle I 


0 


Enter angles in degree. 
0 
L2/ L/.,0 


X 
Ex. 
30.5° 


135.0° 


The range of angles is to be within ± 180°. 


Straight lines are made use of for 
discrimination with their directinality 
considered. 
Fig. 1 Directionality of straight line 


As seen from Fig. 1 above, straight lines L1 and L2 are 
different in direction from each other. 


Circle: 
Enter its central coordinates and radius. 


I x-coordinate, y-coordinate, radius I 


Discrimination: 
When two or more answers exist in graphic calculations, required answers are 
found by inputting the condition of discrimination. 


For discrimination, input+ 1 or -1. 


Input nothing else than the above. 


• Answers in other programs than P4-G-1 and P4-G-2 are rounded at 
the 3rd decimal place. 


Input 
Display 
Note 
Input 
Display 
Note 


1 
11 


2 
12 


3 
13 


4 
14 


5 
15 


6 
16 


7 
17 


8 
18 


9 
19 


10 
20 


-215- 


SHARP 


Title 


PROGRAM NO. 
DISTANCE BETWEEN TWO POINTS AND ANGLE 
P4-G-1 


[ Formula] 


This program determines the distance between two points and the angle closed by a line passing 
these points and a line parallel to the x-axis from entered values of coordinates of the points. 


P2(x2>yz) 
- 
, 
, 
x 2-x 1=6x 
/ 


/ 
y 
"\. 
Yz-y1=6y 
' l: 


-/6 r 2+6y 2= r 
(j\ 


Yx1) 
(} =ACS ( 6x/r ) 


Fig. 2 Distance between Two Points and Angle 


[Example] 


When P1 (0, 0) and P2 (10, 10), 


Angle e = 45° 


Distance r= 14.142 


[ Operation ] 


c LOAD 
v 
v 
G 1 
[ill'ij) 


Input 
Display 
Note 
Input 
Display 
Note 


1 [ill!] ~ 
P1 X= 
11 


2 
0 
[ENTER] 
P1 Y= 
12 


3 
0 
[ENTER] 
P2 X= 
13 


4 
10 
[ENTER[ 
P2 Y= 
14 


5 
10 
[ENTER[ 
15 


6 
D(P1-P2 )14.142 
16 


7 
[ENTERi 
ANG ( DEG) 4 5. 0 0 0 
17 


8 
18 


9 
19 


10 
20 
-216- 


Title 
DISTANCE BETWEEN TWO POINTS AND ANGLE 
PROGRAM NO. 
P4-G-l 


Memory content 


A 1 
Xz 


8 2 
Yz 


c 3 
L\X 


1 0: "A":DEGREE :INPUT "P1 X=";X 


D 4 
L\Y 
20: INPUT "P1 Y=";Y 


E 5 
30: INPUT "P2 X=";A 
r 
40: INPUT "P2 Y=";B 


F 6 
{} 
50: C=A-X,D=B-Y 


G 7 
60: E=f< C*C+D*D) 
70: F=ACS (C/ E) 
H 8 
80: IF O>DLET F=-F 


I 
9 
90: USING :F=F+SGf'.J F* • .::)005 
100: PRINT "D(P1-P2)",E 


J 10 
110: PRINT "MJG(DEG) ",USING "tttlft#fl#11!/. t!ttt1"; F 


K 11 
120: END 
179 
L 12 


M 13 


N 14 


0 15 
p 16 


Q 17 
R 18 
s 19 


T 20 
u 21 
v 22 
w 23 
X 24 
X! 
y 25 
Y1 
z 26 


-217- 


SHARP 


Title 
PROGRAM 
NO. 
INVOLUTE, INVERSE INVOLUTE 
P4-G-2 


[ Formula] 


p~ 


This program finds the involute function essential for the design of 
an involute gear, 


)f_ 
inv17 =tan{.)-{.) [RAD) 


s 
q 
and also the inverse involute function by Newton-method as shown 
a (} 
Rg 
below. 


0 
17i-1=17i- 
f(17i) 
I I ( 
{.) i ) 


_ 
17 . 
tano-o 


- 
z - 
tan 2 17 


Fig. 3 Involute 


SP: involute curve 
s 
starting point of involute 


(J 
angle of obliquite of action at point P 


[ Example] 


e in degree 
Inv e 


14.10° 
.0050912 


23.00° 
.0230490 


25.53° 
.0320358 


[ Operation ] 


CLOAD 
vG2v 
[ENTER I 


Input 
Display 
Note 
Input 
Display 
Note 


1 I SHFTI ~ 
INITIAL= 
Initial value 
11 


2 
10 
[ill_Elli 
INV A= 
12 


3 
.0 0 50 9 [[ijij] A 14. 0 9 8 8 9 7 5 1 
13 


4 I SHFTI 
[BI 
INPUT A= 
14 


5 
14. 1 
I ENTER l 
15 


6 
B 
5. 0 9 1 2 1 IE-0 3 
16 


7 
17 


8 
18 
9 
19 


10 
20 


-218- 


Title 
INVOLUTE, INVERSE INVOLUTE 
PROGRAM NO. 
P4-G-2 


Memory content 
A 1 
B 2 
c 3 
D 4 
v 
10: ".f!i'':INPUT "HHTIAL="iZ 
20: INPUT "INV A="ii 


E 5 
30: DEGREE :USING :T=TAN Z 


F' 
6 
40: R=J[*Z/180 
50: D=<T-R-1)/T/T 
G 7 
60: Z=180*(R-D)/7C 


H 8 
70: IF INT CI8*D)<>OTHEN 30 
80: PRINT "A",z 
I 
9 
v 
90: "B":INPUT "INPUT A="iZ 


J 10 
100: X=TAN Z-Jt:*Z/180 
110: PRINT "B",X 


K 11 
120: END 
162 
L 12 


M 13 


N 14 
0 15 
p 16 


Q 17 


R 18 
v 


s 19 


T 20 
v 


u 21 
v 22 
w 23 


X 24 
y 25 
z 26 
Initial value 


-219- 


SHARP 


Title 


THE POINT OF INTERSECTION OF TWO 
PROGRAM NO. 
STRAIGHT LINES P = L I L 
P4-G-3 


[Formula 1 


This program determines the point of intersection of given two straight lines. 


L 1 ( X 1 ' Y1 ' (j 1) 


Po 


L2 ( x 2 , y 2 , 
() 2 ) 


Fig. 4 
The Point oflntersection of Two Straight Lines 


[ Example 1 
L I 
y 


~ 


Ll: straight line that passes point 1 (0, 0) 


and crosses the X-axis at 45 degrees. 


L2: 
straight line that passes point 2 (1 0, 0) 


Po 
and crosses the X-axis at -45 degrees. 


0 


/ 
~12 


X 


Fig. 5 Example (P = L/L) 


[ Operation 1 


CLOAD 
vG3v 
'ENTER! 


Input 
Display 
Note 
Input 
Display 
Note 


1. LIDWJ ~ 
P1 X= 
11 


2 
0 
!ENTER! 
P1 Y= 
12 


3 
0 
!ENTER! 
ANGLE 1 = 
13 


4 
45 
!ENTER! 
P2 X= 
14 


5 
10 
[ENTER! 
P2 Y= 
15 


6 
0 
,ENTER! 
ANGLE 2 = 
16 


7 -45 
@!;,Rj 
17 


8 
PO 5.00 
5.00 
18 
9 
19 


10 
20 


-220- 


Title 
THE POINT OF INTERSECTION OF TWO 
PROGRAM NO. 
STRAIGHT LINES p = L/L 
P4-G-3 


Memory content 


A 1 
X! 


B 2 
Y1 
c 3 
()! 
10: "A":DEGREE :I tlPUT "P1 X=";A.· 
20: INPUT "P1 Y=";-B 


D 4 
Xz 
30: INPUT "ANGLE 
1=";c 


E 5 
Yz 
f,IJ : INPUT "P2 X=";D 
50: INPUT 
II P2 Y=";E 


F 6 
{}z 
60: INPUT "ANGLE 
2=";F 


G 7 
v 
70: IF ASS C=90LET C=ESC: I=1: GOT0 90 
80: C=TAN C:I=O 


H 8 
v 
90: 1F ABS F=90LET F=ES 0: GOTO 110 


I 
9 
v 
100: F=TAN F 
110: G=B-C*A:H=E-F*D 


J 10 
12"0: X=(G-H)/(F-C) 


K 11 
130: IF I=1LET Y=F*X+H:GOTO 150 
1 40: Y=C*X+G 


L 12 
150: X=X*(A3S X>IE-20) :X=X+SGN X><.OQS:Y=Y+ 
SGN Y* .005 


M 13 
160: PRINT "PO";USING 
•·~~44.J.t·P-tr~; 
.j.J.;·r• •v •v 
t7 r-.- t; ir r. ;·: • r; 1. 
; 
t\ r 
I 


N 14 
170: END 
285 


0 15 
p 16 


Q 17 
R 18 
s 19 


T 20 
u 21 
v 22 
w 23 


X 24 
Pox 
y 25 
Poy 
z 26 
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SHARP 


Title 
FROM ONE POINT P =PIC l 


PROGRAM NO. 
A TANGENT LINE 
P4-G-4 


[ Formula] 


This program finds a tangent point from a given point P1 and a given circle C 1. 


·~ ... ~~ 
o" 
~'1.~ 
'\#<Ice 
Condition of discrimination: 


h\ 
For discrimination, input 1 if the 


\""' 
tangent point is located on the left 
of the line that passes point P1 
_ct 
and the center of circle; otherwise 
~ 
---- 


Cxo,yo,ro) 
input -1. 
PI 


( X1, Y1) 
1=-J 


1: 
<II1gel2t ~ 
Poi12t 2 


Fig. 6 Tangent Line from a Point 


[ Example] 
y 


PO 
c 
central coordinates (2, 2) radius 1 
p 
point (0, 0) 
C(2 2,1) 


P( 
, 0) 
X 


Fig. 7 Example P = P /C 


[ Operation ] 


C LOAD v G4 v ]mER] 


Input 
Display 
Note 
Input 
Display 
Note 


1 
I SHFT] ~ 
P1 X= 
11 
2 
0 
]EllER] 
P1 Y= 
12 
3 
0 
]ENTER] 
C1 X= 
13 
4 
2 
]ENTER] 
C1 Y= 
14 
5 
2 
]EllER] 
C1 R= 
15 


6 
1 
]ENTER] 
J.L(l) R( -1 )= 
16 


7 
1 
]ENTER], 
17 


8 
PO I. 09 
2. 41 
18 
9 
19 


10 
20 
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Title 


PROGRAM NO. 


A TANGENT LINE FROM ONE POINT P = PIC 
P4-G-4 


Memory content 


A 1 
X! 


B 2 
Y! 
c 3 
Xo 


D 4 
10: "A" :DEGREE :INPUT "P1 X="iA 
Yo 
20: INPUT "P1 Y=";B 


E 5 
ro 
30: INPUT "C1 X=";c 


F" 
6 
Judge 
40: INPUT "C1 Y="iD 
SO: INPUT "C1 R="iE 


G 7 
v 
60: INPUT "J.LC1) R(-1)="iF 


H 8 
v 
70: G=C-A:H=D-B 
80: I=[< G*G+H*H) 


I 
9 
v 
90: J=ACS (G/ I) 


J 10 
v 
100: IF O>HLET J=-J 
110: K={CI*I-E*E) 
K 11 
v 
120: L=ACS (K/ I) 


v 
130: M=A+K*COS'(J+F*L) 


L 12 
140: N=B+K*SIN (J+F*L) 
M 13 
Pox 
150: M=M+SGN M*.OOS:N=N+SGN N*.OOS 
160: PRINT "PO"; USING "########. ##"; ~1; N 
N 14 
Poy 
170: END 


0 15 
261 


p 16 


Q 17 
R 18 
s 19 


T 20 
u 21 
v 22 
w 23 


X 24 
y 25 
z 26 
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SHARP 


Title 
POINTS OF INTERSECTION OF TWO CIRCLES 
PROGRAM NO. 
P = C/C 
P4 -G- 5 


[ Formula 1 


This program finds points P0 1 and P02 of intersection of two given circles. 


p 01 


Condition of discrimination: 


)~\ 
To find the left-hand point of 
intersection that is located at the 
C2 
left of the line passing the centers 


\~\ 


( Xz 1 Yz r2) 
of two given circles C 1 - 
input 
Cl 
first - 
and C2 -input second- 


( x1, Yt Yt) 
)~ 
input 1; to find the right-hand point, 
input -1. 


P0 2 
Fig. 8 Points of Intersection of Two Circless 


[ Example 1 
y 


/ 1\ 


cl: center (-50, -50), radius 50 


c2: center (0, 0), radius 50 
POJ 
C2 
X 


~ 


Cl 


Fig. 9 Example (P = P /C) 


[ Operation 1 


CLOAD vG5v 
[ENTER[ 


Input 
Display 
Note 
Input 
Display 
Note 


1 I SHFT[ ~ 
C1 X= 
11 


2 -50 
[ENTER] 
C1 Y= 
12 


3 -50 
[ENTER] 
C1 R= 
13 


4 
50 
[ENTER] 
C2 X= 
14 


5 
0 
lEilliD 
C2 Y= 
15 


6 
0 
[ENTER[ 
C2 R= 
16 


7 
50 
[ENTER[ 
1 .L( 1) R(-1)= 
17 


8 
1 
[ill[~ 
18 


9 
PO -50.0 0 0. 00 
19 


10 
20 
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Title 
POINTS OF INTERSECTION OF TWO CIRCLES 
PROGRAM NO. 


P = C/C 
P4-G-5 


Memory content 
A 1 
X! 


8 
2 
Y! 
c 3 
r! 
10: "A" ;OEGREE :INPUT "C1 X=";A 
20: It-JPUT "C1 Y=";B 


D 4 
X2 
30: INPUT "C1 R=";c 


E 5 
40: INPUT "C2 X=";D 


Y2 
SO: INPUT "C2 Y=";E 


F 6 
r2 
60: INPUT "C2 R=";F 


G 7 
70: INPUT "J. L( 1 ) R(-1)=";G 
Judge 
80: H=D-A: I=E-8 
H 8 
.; 
90: J =f< H*H+I* I) 
100: K=ACS ( H/ J) 


I 
9 
.; 
110: IF O>ILET K=-K 
J 10 
.; 
120: L=ACS ((C*C+J*J-F*F)/2/C/J) 
130: M=A+C*COS (K+G*L) 
K 11 
.; 
140: N=B+C*SIN (K+G*L) 
L 12 
.; 
150: M=M+SGN M*.005:N=N+SGN N*.005 
160: PRINT "PC" ;usING "########.II#" ;M;t·J 


M 13 
Pox 
170: END 
N 14 
Poy 
275 


0 15 
p 16 


Q 17 
R 18 
s 19 


T 20 
u 21 
v 22 
w 23 


X 24 
y 25 
z 26 
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SHARP 


Title 
A CIRCLE TANGENT TO TWO LINES C = L/L 


PROGRAM NO. 


p4~G~6 


[ Formula] 


This program finds the central coordinates of a circle tangent to given two lines L1 ( x 1 , y 1 , e 2 ) 
and L2 (x2 , y 2 , 82 ) with the condition of discrimination J 1 and J2 and radius R known. 
L I 


c • 
~ 
L2 


Fig. 10 A Circle Tangent to Two Lines 


Condition of discrimination 


J 1 : 
1 when a circle is created on the left of line L1 that is input first. 


~ 1 when a circle is created on the right of line Ll. 


J2 : 
1 when a circle is created on the left ofline L2 that is input second. 


~ 1 when a circle is created on the right of line L2. 


[Example] 


~lr(LI 


----------~+-~~-+-------X 
/f\\, 


Fig. 11 Example (C = L/L) 


[ Operation ] 


C LOAD v G6 v [ENTER[ 


L1: 
line that passes origin (0, 0) 
and crosses the x-axis at 45 
degrees. 


L2; 
line that passes origin (0, 0) 
and crosses the x-axis at ~45 
degrees. 


R= 20 


J 1 : 
~ 1 because the circle is on the 
right of Ll. 


J 2 : 
1 because the circle is on the 
left ofL2. 


Input 
Display 
Note 
Input 
Display 
Note 


L1 X= 
11 
PO 28.28 
0.00 


2 
0 
[ENTER[ 
Ll Y= 
12 
[ENTER[ 
P 1 1 4. 14 1 4. 1 4 


0 
[E!ill] 
Ll A= 
13 
[ENTER[ 
P 2 
1 4. 1 4 
~ 14.14 


4 
45 
[ENTER] 
L 2 X= 
14 


5 
0 
[ENTER[ 
L 2 Y= 
15 


6 
0 
[@ii] 
L2 A= 
16 


7 
~45 
IENTERI 
R = 
17 


8 
20 
[ENTER[ 
J .L1 
L(l),R(~1)= 
18 
9 
~ 1 
[ENTER] 
J . L2 L(1) ,R( ~ 1)= 
19 


10 
1 
20 
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PROGRAM NO. 
Title 
A CIRCLE TANGENT TO TWO LINES C = L/L 
P4-G-6 


Memory content 


A 1 
X1 


8 
2 
Y1 
c 3 
(}1 
10: "A":DEGREE :INPUT "L 1 X=";A 
20: INPUT "L1 Y=";B 


D 4 
X2 
30: INPUT "L1 A=";c 


E 5 
40: INPUT "L2 X=";o 
Y2 
50: INPUT "L2 Y=";E 


F 6 
(}2 
60: INPUT "L2 A=";F 
70: INPUT "R=";R 
G 7 
v 
80: INPUT "J.L1 L(1),R(-1)=";I 
H 8 
v 
90: INPUT "J.L2 L<1),R(-1)=";J 


100: X=C+90*I:P=C 
I 
9 
Judge 1 
110: A=A+R*COS X 
J 10 
Judge 2 
120: B=B+R*SIN X 
130: X=F+90*J:Q=F 
K 11 
v 
140: D=D+R*COS X 
L 12 
P1x 
150: E=E+R*SIN X 
160: IF ASS C=90LET C=ESO:Z=1:GOTO 180 


M 13 
P1y 
170: C=TAN C:Z=O 


N 14 
P2x 
180: IF ASS F=90LET F=ESO: GOTO 200 
190: F=TAN F 


0 15 
P2y 
200: G=B-C*A :H=E-F*D 
p 16 
v 
210: X=CG-H)/(F-0 
220: IF Z=1LET Y=F*X+H:GOTO 240 


Q 17 
v 
230: Y=C*X+G 


R 
Radius 
240: X=X*(ABS X>E-20) 
18 
250: K=P-90*I 
s 19 
260: L=X+R*COS K 
270: M=Y+R*SIN K 
T 20 
280: K=Q-90*J 
u 21 
290: N=X+R*COS K:O=Y+R*SIN K 
300: X=X+SGN X*.OOS:Y=Y+SGN Y*.OOS 
v 22 
310: PRINT "PO" ;us HJG "######tift.##"; x;y 
w 23 
320: L=L+SGM L*.OOS:M=M+S~N M*.OOS 
330: PRINT "P1" ;uSING "######## .#tt" ;L;r-1 


X 24 
pox 
340: N=N+SGN N*.OOS:O=O+SGN 0*.005 


y 25 
Poy 
350: 
360: 


PRINT "P2";USING "####tl###.#tt";N;O 
END 
z 26 
v 
585 
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SHARP 


INTERSECTION OF A CIRCLE AND A LINE 
1 
PROGRAM NO. 
Title 
p = L!C 
P4-G-7 


[ Formula] 


This program finds points of intersection of line L (x1 , y 1 , 8) and circle C (x 0 , Yo, r0 ) with 
the condition of discrimination given. - 


1--- 
C ( Xo Yo ) ~ 


r ---. 


Po1 
Po 2 


L 
{} 


( X1 '.Yl) 
Fig. 12 Intersection of a Line and a Circle 


I 


Condition of discrimination: 


A line and a circle intersect each other at two points unless they are tangent to each other. 
To discover the point of intersection nearer to the start point of the line, input -1; to 
discover another point, input 1. 
In the above example, Po 1 is fixed when -1 is input and Po2 when 1 is input. 


[Example] 


L: line that passes point (-50, 0) 


and crosses the X-axis at 45 
degrees. 


/1~ / 


C: 
center (50, 50), radius 50. 


L 
X 
/ 


0 


Fig. 13 Example (P = L /C) 


[ Operation ] 


CLOAD vG7v [fiffR] 


Input 
Display 
Note 
Input 
Display 
Note 


1 
[]ill]~ 
L1 X= 
11 


2 -50 
[ENTER[ 
L1 Y= 
12 


3 
0 
[ENTER] 
L1 A= 
13 


4 
45 
[illER] 
C1 X= 
14 


5 
50 
[ENTER] 
C1 Y= 
15 


6 
50 
[ENTER] 
C1 R= 
16 


7 
50 
[ENTij] 
NEARER (-1), FARTHER (1) = 
17 


8 
- 
1 
(ENTER[ 
18 
9 
PO 0. 0 0 50.00 
19 


10 
20 
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Title 
INTERSECTION OF A CIRCLE AND A LINE 
PROGRAM NO. 


p = L/C 
P4-G-7 


Memory content 


A 1 v 


8 
2 
v 


c 3 
10: "A":DEGREE :INPUT "L 1 X=";s 
20: INPUT "L1 Y=";T 


D 4 
30: INPUT "L 1 A=";o 
E 5 
40: INPUT 
II C1 X=";p 


50: INPUT 
II C1 Y=";Q 
F' 
6 
60: INPUT 
II c 1 R=";R 
70: HI PUT "NEMER(-1), FARTHER(1) =" ;J 
G 7 
80: S=S-P:T=T-0 


H 8 
90: IF ADS 0=90LET X=S:Y=J*SGN O*((R*f~-X*>O 
:GOTO 130 
I 
9 
100: X=TMl O:Y=T-S*X 


J 10 
Judge 
110: A=X*X+1:D=-X*Y/A:A=(CX*X*R*R-Y*Y+R*R)/A 
120: Z=B+A*SGfJ (90-AGS 0) *J: Y=X*Z+Y: X=Z 
K 11 
130: X=X+P:Y=Y+Q 


L 12 
1 LtD: X=X+SGfJ X*.OOS:Y=Y+SGN Y*.OOS 
150: PRirJT "PO"iUSING "II #tltl####. #tt"; X; Y 


M 13 
160: EfJD 


~, '"')-.• 


N 14 
.:>c:, 


0 15 
(}! 
p 16 
Xo 


Q 17 
Yo 
R 18 
ro 
s 19 
X 1 


T 20 
Yt 


u 21 
v 22 
w 23 
X 24 
Pox 
y 25 
Poy 
z 26 
v 
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SHARP 


PROGRAM NO. 
Title 
A LINE TANGENT TO TWO CIRCLES 
P4-G-8 


[ Formula] 


This program discovers two tangent points on a line tangent to two given circles C1 (x1, y 1, r1) 
and C2 (x 2 ,Y2, r 2 ) with the conditions of discrimination J1 and J2 given. 


P1 
() () 
T \ 


P2 
) \ 


r 1 


c 1 
1 
Fig. 15 Lines Tangent to Two 


(x\,yl) 
C 2 (Xz,Yz) I 
Circles at the Same Side 


- 
QxQ 


Fig. 14 A Line Tangent to Two Circles 
Fig. 16 Lines Tangent to Two 
Circles at the Sides 


Condition of discrimination 
Opposite to Each Other 


J1: 
1 when a line to be found out is tangent to circles c1 and c2 on the same side. 
-1 when that line is tangent to those circles on the sides opposite to each other. 
J2: 
1 when the tangent point of circle C2 which is on the left side of the line connecting 
the centers of circles c 1 and c2 is found. 
-1 when the tangent point on the right side is found. 


[ Example] 
P2 
PI 
-, 
..... 
c1: center (50, 50), radius 50 
(J,, 


rz= 40 
c2: center (200, 80), radius 40 
\ 
J 1 : 1 because the line is tangent to 
c z c zoo • so) 
c1 and c2 on the same side. 
\ 
J2: 1 because the tangent point is 


c 
1(50,50) 
on the left side. 


Fig. 17 Example (L = C/C) 


[Operation ] 
CLOAD \1 
\1 
G 8 
[ENTER[ 


Input 
Display 
Note 
Input 
Display 
Note 


1 [jjlliJ ~ 
C1 X= 
11 


2 
50 
lillf!J 
C1 Y= 
12 


3 
50 
[ENTER[ 
C1 R= 
13 


4 
50 
[ijilll 
C2 X= 
14 


5 200 
[®11] 
C2 Y= 
15 


6 
80 
[ENTER[ 
C2 R= 
16 


7 
40 
[ENTER1 
J. OUT(1), IN( -1 )= 
17 


8 
1 
[ENTER[ 
J. L(1),R(-1)= 
18 
g 
1 
IENH!Ij 
P1 4 3. 42 99.5 7 
19 


10 
[ENTER 


1 
P2 194.74 119.65 
20 
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Title 
PROGRAM NO. 


A LINE TANGENT TO TWO CIRCLES 
P4-G-8 


Memory content 


A 1 
X! 


8 2 
Y1 
c 3 
rl 
10: "A":DEGREE :INPUT "C1 X=";A 
20: INPUT "C1 Y=" ;Et 


D 4 
x2 
30: INPUT "C1 R=";c 


E 5 
40: INPUT "C2 X=";D 
Y2 
50: INPUT "C2 Y=";E 


F 6 
r2 
60: INPUT "C2 R=";F 


G 7 
v 
70: INPUT "J.OUTC1> ,IN(-1) =" ;Q 
80: INPUT "J.L(1),R(-1)=";R 
H 8 
v 
90: S=R 


I 
v 
100: IF Q=-1LET X=F+C:GOTO 130 
9 
110: X=F-C 


J 10 
120: IF C=FLET X=O 
130: Y=D-A 
K 11 
140: U=E-B 


L 12 
v 
150: V=f( Y* Y+U*U) 
160: W=ACS CY/V) 


M 13 
P1x 
170: IF U>OTHEN 190 


N 14 
P1Y 
180: W=-W 
190: G=f<V•V-X*X) 
0 15 
P 2x 
200: H=ACS (G/V) 


p 16 
P2Y 
210: IF Q=1IF C>FLET R=-R 
220: I=W+H•R:L=I+Q*S*90 
Q 17 
Judge 1 
230: M=A+C•COS L 
R 18 
Judge 2 
240: N=B+C•SIN L 
250: O=M+G•COS I 
s 19 
v 
260: P=N+G•SIN I 
T 20 
270: M=M+SGN M•.OOS:N=N+SGN N•.OOS 
280: PRINT "P1";USING "########.##";M;N 
u 21 
v 
290: O=O+SGN O*.OOS:P=P+SGN P*.OOS 


v 22 
v 
300: PRINT "P2";USING "########.##";O;P 
310: END 
w 23 
v 
450 


X 24 
v 


y 25 
v 
.z 26 
l 
I r 
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SHARP 


Title 
A CIRCLE TANGENT TO BOTH A CIRCLE AND 
A LINE C = L!C 
I PROGRAM NO. 
lP4-G-9 


[ Formula] 


This program finds the central coordinates of a circle tangent to both line L1 (x 1 , y 1 , 61 ) and 
circle C 1 (x0 , Yo, r0 ) - 
both are given - 
with its radius Rand the conditions of 
discrimination J 1 and 12 input. 


• 
0 


ro 


( X1, Y1) 
C 1 ( Xo,Yo) 


Fig. 18 A Circle TaBgent to Line L1 and 
Circle C1 


[Example] 
y 


L 1 


L 1 


Conditions of discrimination 


J 1: 1 when a circle is tangent to circle c1 at the 
outside is found. 
-1 when a circle is tangent to circle C 1 at the 
inside is found. 
J 2 : 1 when a circle to be found is on the left side 
of line L1 . 
-1 when the circle stays on the right side. 
J 3 : -1 when the circle is on the nearer side. 
1 when a circle to be found is on the farther 
side of circle C 1 in terms of the direction of 
line L 1 . 


L1 : line that passes original (0, 0), and crosses 


---+-----+-----+-----X 
the X-axis at 45 degrees. 
C1 


P2 


P1 


Fig. 19 Example (C = L/C) 


[ Operation ] 


CLOAD '7 G9 '7 
!ENTER! 


Input 
Display 
Note 


L1 X= 
11 
2 
0 
ENTER! 
L 1 Y= 
12 


3 
0 
L1 A= 
13 


4 
45 
C1 X= 
14 


5 
0 
C1 Y= 
15 


6 
0 
JNT~~ 
C 1 R= 
16 


7 
40 
ENTER 
R = 
17 
-- -- 
8 
2 0 
JNTER_~ 
J .C CXJT( 1), IN( -1 )= 
18 


9 
1 
ENTER 
J .Ll L(l),R(-1)= 
19 


10 
1 
ENTER 
FARTHER(l), NEARER( -1) = 
20 


c1: center (0, 0), radius 40 


R~ 20 
J 1 : 1 because the circle PO to be found is outside 
C1. 
J 2 : 1 because PO is on the left side of L1 . 
J 3 : -1 because PO is on the nearer side. 


Input 
Display 


-1 
!_NTER] 


PO -54.14 -25.86 


:ENTER\ 
P 1 -40.00 -40.00 


.ENTER! 
P2 -36.09-17.24 


Note 


-232- 


A CIRCLE TANGENT TO BOTH A CIRCLE AND 
PROGRAM NO. 
Title 
A LINE c = L!C 
P4-G-·9 


Memory content 
A 1 
P1x 


8 
2 
P1y 


10: "A":DEGREE :INPUT "L 1 "-'' • r 
c 3 
v 
i\- 
, ;.) 
20: INPUT "L1 Y=";T 


D 4 
v 
30: INPUT "L 1 A=";o 
ttO: INPUT 
II C1 X=u;p 
E 5 
Judge 1 
50: INPUT "C1 Y=";Q 


F 6 
Judge 2 
60: INPUT 
II c 1 R=";R,"R=";G 
70: HJPUT "J.C OUT( 1), HJC -1) =" ;E; 
G 7 
Radius 
GCJ: INPUT "J.L1 L(1),R(-1)=";F 


H 8 
v 
90: HJPUT "FARTHER(1) ,NEARER(-1) =" ;J 


100: H=0+90•F:U=O 
I 
9 
v 
110: S=S+G*COS H 


.J 10 
Judge 3 
120: T=T+G*SHJ H 
130: IF CE=-1)+(G>R)=2LET U=1 
K 11 
v 
140: S=S-P:T=T-Q:R=R+E*G 


l 
12 
P 2x 
150: IF AOS 0=90LET X=S:Y=J*SGIJ Q-;,rCfi*R-;:'l:X) 
:GOTO 190 


M 13 
P2y 
160: X=TAN O:Y=T-S*>: 


N 
170: A=X*X+1:G=-X*Y/A:A:::r(X*X*R*R-Y•Y+R*R)/A 
14 
180: Z=B+1'1*SGf'l C90-/',ElS O)•J:Y=X•Z+Y:X=Z 
0 15 
01 
190: X=X+P:Y=Y+Q 
200: H=0-90*F 
p 16 
Xo 
210: A=X+G*COS ll: B=Y+G*SHJ 11 


Q 17 
Yo 
220: C=E*(P-X) :D=E•CO-Y) 
230: I=.f( C*C+D*D) 
R 18 
ro 
2L;Q: K=ACS ( C/I) 


s 19 
X! 
250: IF O>DLET 1<=-1( 
260: IF U=1LET I(=JC+1 r;o 
T 20 
Y1 
270: L=X+G*COS K:il=Y+G*SIN 
1/ 
I' 
u 21 
v 
2[\0: X=X+SGN X•.OOS:Y=Y+SGN Y*.OOS 
290: A=A+SGN A*.OOS :B=O+SGil 8*.005 
v 22 
300: L=L+SGIJ L•.oos :n=r·HSGI-J fl* .005 


w 23 
310: PRINT "PO" ;uSir:G "tttttttttttt#tt.#tJ" ;x;y 
320: PRINT "P1";USHJG "tlf.liUitl##li .##"; /\ifJ 


X 2"4 
Pox 
330: PRINT "P2" ;usn;G "#tl#tt##tl# .fit!" ;L;N 


y 25 
Poy 
340: 
E~JD 
679 
z 26 
v 
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SHARP 


Title 
PROGRAM NO. 


A CIRCLE TANGENT TO TWO CIRCLES C = C/C 
P4-G-10 


[ Formula] 


This program fmds the center 0 of a circle tangent to two given circles C1 (x1, y 1 , rd and 
C2 (x 2 ,Y2,r2 ) andtheirtangentpoints P1 and P 2 with the radius R of that circle and the 
conditions of discrimination 11 , 12 and 13 entered. 


·o 
Conditions of discrimination 


-\ 
p, 
p2 \ 


11 : 1 when a circle to be found is tangent to 
c1 at the outside. 


r, 
r2 
-1 when that circle is tangent to c1 at the 
\ 
\ 


inside. 
12: 1 when a circle to be found is tangent to 
c 1 ( x,' y,) 
C2 
c2 at the outside. 
( X2 , Y2) 
-1 when that circle is tangent to c2 at the 
inside. 
13: 1 when a circle is created on the left side of 


Fig. 20 A Circle Tangent to Two Circles 
circle c2 looking from circle c 1 . 
-1 when a circle is created on the right side. 
[Example] 
y 
cV 


c1: (0, 0, 30) 


c2: (50, 20, 40) 
~ 


Cz 
r= 10 
~ 
rz ----;o 


11: 1 because the circle to be found 


Ct 
j_ 
- 
namely PO - 
is tangent to 


~.)!- 
__/ 


c1 at the outside. 
12: -1 because PO is tangent to C2 
at the outside. 
- 
13: 1 because PO is on the left side 
ofC2. 


Fig. 21 
Example (C = C/C) 


[ Operation ] 


CLOAD vG10 v 
[ENTER[ 


Input 
Display 
Note 
Input 
Display 
Note 


1 
[SHFT] 
~ 
C1 X= 
11 
1 
[ENTER] 


2 
0 
[ENTER[ 
C1 Y= 
12 
PO 
4. 0 8 39.79 


3 
0 
[ENTER] 
C1 R= 
13 
[ENTER] 
P1 
3. 06 29.84 


4 
30 
[ENTER[ 
C2 X= 
14 
[ENTER] 
P2 13. 2 7 35.83 


5 
50 
i ENTER] 
C2 Y= 
15 


6 
20 
[ijill] 
C2 R= 
16 


7 
40 
[ENTER[ 
R 
- 
17 


8 
10 
[ENTER] 
J .Cl.CXJT(l), IN(-1)= 
18 


9 
1 
[ENTER] 
J.c2.curC1). w: -1 )= 
19 


10 
1 
[ENTER I 
J.U: l),R(-1)~~ 
20 
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Title 
A CIRCLE TANGENT TO TWO CIRCLES C = C!C 
PROGRAM NO. 
P4-G-10 


Memory content 


A 1 
X! 


8 
2 
Y! 
c 3 
v 
10: "A": DEGREE :INPUT "C1 X="iA 
20: INPUT "C1 Y="iB 


D 4 
Xz 
30: INPUT "C1 R="iO 


E 5 
Yz 
40: INPUT "C2 X="iD 
50: INPUT "C2 Y="iE 


F 6 
v 
60: INPUT "C2 R="iP 


G 7 
Judge 3 
70: INPUT "R="iS 
80: INPUT "J.C1. OUTC1),INC-1)="iQ 


H 8 
P1x 
90: INPUT "J.C2. 0UT(1),iNC-1)="iR 


I 
9 
P1y 
100: INPUT "J. LC1),RC-1>="iG 
110: F=P+R•S:C=O+G*S 


J 
10 
Pz X 
120: H=D-A 


K 
130: I=E-B 
11 
Pzy 
140: J=fCH*H+I*I> 


L 12 
v 
~50: K=ACS (H/ J) 
160: IF O>ILET K=-K 
M 13 
Pox 
170: L=ACS ((C*C+J•J-F*F)/2/C/J) 


N 14 
Poy 
180: M=A+C•COS 
CK+G*~) 
190: N=B+C•SIN CK+G*U 
0 15 
r 1 
200: X;:Q* (A-M) 
p 16 
rz 
210: Y=G*CB-N) 
220: GOSUB 500 


Q 17 
Judge 1 
230: IF CCQ=-1>•CS>0))=1LET W=W+180 


R 18 
Judge 2 
240: H=M+S•COS W 
250: I=N+S•SIN W:X=R•CD-M) 
s 19 
Radius 
260: Y=R•CE-N) 


T 20 
270: GOSUB 500 
280: IF CCR=-1>•CS>P))=1LET W=W+180 
u 21 
290: J=M+S•COS W:K=N+S•SIN W 
v 22 
300: M=M+SGN M*.005:N=N+SGN N•.OOS 
310: H=H+SGN H•.005:I=I+SGN I•.005 
w 23 
v 
320: J=J+SGN J•.OOS:K=K+SGN K*.005 


X 24 
v 
330: PRINT "PO"iUSING "#f:l#tltl#f:ltl.tltl"iMiN 
340: PRINT "P1"iUSING "tltlt/tl###tl.tlf:l"iHii 


y 25 
v 
350: PRINT "P2"iUSING "tltltltltltltltl.tltl"iJiK 
500: Z=fCX*X+Y*Y) 
z 26 
510: W=ACS CX/Z) 
520: IF O>YLET W=-W 
530: RETURN 
540: END 
668 
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Title 
SHARP 


A CIRCLE PASSING A POINT AND TANGENT TO 
A LINE C = L/P/R 


[ Formula] 


PROGRAM NO. 
P4-G-11 


This program finds the central coordinates of a circle passing given point PI (x, y) and tangent 
to given line Ll (x 1 , y 1 , 8 1 ) and the coordinates of a point of their intersection with radius R 
and the conditions of discrimination J 1 and J2 given . 


R 


I 
I 


.... ---........ 
/ 
' 
Yl (X' y) \ 
I 
\ 
I 


\ 
I 
I 
I 
\ ', 


/ 
/. 


(}! 


--=---------~~---- X 
./ 


L I 


( X1, Y!) 
Fig. 22 A Circle Passing a Point and Tangent to a Line 


Condition of discrimination 
J 1 : 1 when point P 1 is on the left side of line L1 . 
-1 when P1 is on the right side of L1 . 
J2 : 1 when line L1 is on the farther side of a circle to be created. 
-1 when line L1 is on the nearer side. 


[Example] 


y 
L I 
L1 : line that passes origin (0, 0) and 
crosses the X-axis at 45 degrees. 
P 1 : (30, 50), radius 15 


Po • 


J 1 : 1 because P 1 is on the left side. 
J 2 : -1 because L1 is on the nearer side. 


0 
/ 
X 


Fig. 23 Example C = L/P/R 


[ Operation ] 


CLOAD v G 1 1 v [ijlij] 


Input 
Display 
Note 
Input 
Display 
Note 


1 I SHFT[ [AI 
L1 X= 
11 
[ENTER] 
P 1 
2 9. 4 1 
2 9. 4 1 
~~y~~m 


2 
0 
[ENTER[ 
L 1 Y= 
12 


3 
0 
[ENTER[ 
L 1 A= 
13 


4 
45 
[ENTER] 
P1 X= 
14 


5 
3 0 
[ENTER] 
P 1 Y= 
15 


6 
50 
[ENTER[ 
R = 
16 


15 
[ENTER[ 
J.P.L(1),R(-1)= 
17 


1 
[ENTER] 
FARTHER(!), NEARER(-1) = 
18 
-1 
[ENTER[ 
19 


10 
PO 18. 8 0 4 0. 0 2 
20 
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Title 
A CIRCLE PASSING A POINT AND TANGENT TO 
PROGRAM 
NO. 


A LINE c = L!P/R 
P4-G-ll 


Memory content 


A 1 
v 


8 
2 
v 


c 3 
Judge 1 


18: 
11 f,', :DEGr(EE :INPUT II L 1 
)~=II; s 
D 4 
v 
20: IrlPUT 
11L 1 Y= 
11 iT 


E 5 
30: INPUT "L 1 A="iO 
40: INPUT 
11 P1 
)(:II ;p 
F 6 
50: HJPUT 
II P1 Y= 
11 i0 


G 7 
r.SO: IfJPUT "R= 
11 iR 
70: InPUT "J.P. un,RC-1)=";c 


H 8 
30: INPUT 
II F P.r.! TH ER ( 1) , tJ EAR EH ( -1) =11 ; J 


I 
9 
90: D=0+90*C 
100: S=S+R*COS D 
J 10 
Judge 2 
110: T=T+R*SIN D 


K 11 
120: S=S-P:T=T-Q 
130i IF ;\GS 0=90LET X=S :Y=J*SGt) 
Q,~,; r ( l~i'.: R- ~~·~X) 


L 12 
:GOTO 160 
1lt0: X=T /\f'.: O:Y=T-S*X 
M 13 
1SD: 
A=X*X+1:3=-X•Y/A:A:r(X*X*R*R-Y*Y+~*~)/~ 


N 14 
160: Z=B+A-kSGf·l (90-ADS O)•J:Y=X*Z+Y:X=Z 
170: ::=x+r: Y=Y+Q 
0 15 
{}I 
1 c.o: D=0-90*C 


p 16 
X 
190: U=X+R,::cos D 
200: V=Y+R*SI1l D 
Q 17 
y 
210: U=U+SGN U*.OOS:V=V+SGN V*.OOS 


R 18 
Radius 
220: X=X+SGN Xi:. 005: Y=Y+SGf'-1 Y•.CG5 
230: Pi; ItJT "PO"iUSING II t.tt!tJ tJ f:!. II ttl.! • ;'f:'l " ;;: ; y 
s 19 
X! 
240: PR IilT 


11 P1 
11 iUSING II# II f.l # tltl tJt.!. :: ii II; lJ; v 


T 20 
250: EflD 


Y! 
463 


u 21 
P1x 
v 22 
P1y 
w 23 


X 24 
Pox 
y 25 
Poy 
z 26 
v 
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SHARP 


Title 
A CIRCLE PASSING A POINT AND TANGENT TO 
A CIRCLE C = P/C/R 


PROGRAM NO. 
P4-G-12 


[ Formula] 


This program fmds the central coordinates of a circle that passes given point P 1 (x 1 , y 1 ) and is 
tangent to given circle C1 (x 0 , Yo, r0 ) and the coordinates of a point where those two circles 
are tangent with radius R and the condition of discrimination given . 


....... -, 


/ 
' 
PI/ 
\ 


Po• 


I 


I 
I 


c1 
( Xo, Yo) 


- 


Fig. 24 A Circle Passing a Point and 
Tangent to a Circle 


[Example] 


y 


Condition of discrimination 


J 1 : 1 when a circle to be found is tangent to circle 
cl at the outside. 
-1 when that circle is tangent to C 1 at the 
inside. 
12 : 1 when a circle to be found is created on the 
left side looking from point P 1 . 
-1 when that circle is created on the right side. 


p 1 ( 60,30) 


R=40 
'"" 


- 


Fig. 25 Example (C =P/C/R) 


[ Operation ] 


CLOAD V' G 12 V' 
[fill~ 


Input 
Display 
Note 


Po 
I 
X 


Input 


PI: (60,30) 
C1 : center (0, 0), radius 40 
R: 30 
J 1 : 1 because the circle to be found 
is tangent to cl at the outside. 
12 : 1 because the circle to be found 
is on the left side looking from P 1. 


Display 
Note 


1 I SH FT I ~ 
p 1 X= 
11 
[ENTER[ 
P 1 39.99 0. 98 
Tangent 
_!'_oint 


2 
60 ~ P1 Y= 
12 


3 
3 0 
[EllER[ 
C1 X= 
13 


4 
o [Emi] 
C1 Y= 
14 


5 
0 
[(lrr8l 
C1 R= 
15 


6 
R = 
16 


7 
3 0 
[E_IIIER] 
J.a.Tf(l), IN(-1)= 
17 


8 
J. L( 1) ,R( -1)= 
18 


9 
1 
[ENTER[ 
19 


10 
PO 69.98 1.71 
20 
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Title 
A CIRCLE PASSING A POINT AND TANGENT TO 
PROGRAM NO. 


A CIRCLE C = P/C/R 
P4-G-l 2 


Memory content 


A 1 
XI 


B 2 
Y1 


c 3 
10: "A": DEGREE :INPUT "P1 X="iA 
Xo 
20: INPUT "P1 Y=";B 


D 4 
Yo 
30: INPUT "C1 X="iD 
40: INPUT "C1 Y=";E 


E 5 
ro 
SO: INPUT "C1 R="iN 


F 6 
v 
60: INPUT "R=";c 
70: INPUT "J.OUT{1),IN(-1)="iP 


G 7 
Judge 2 
80: INPUT "J.L(1),R(-1)="iG 


H 8 
v 
90: F=N+P*C 
100: H=D-A: I=E-B 


I 
9 
v 
110: J=fCH*H+I*I> 


~ 10 
v 
120: K=ACS (H/J) 
130: IF O>ILET K=-K 
K 11 
v 
140: L=ACS ((C*C+J*J-F*F)/2/C/J) 


L 
v 
1SO: S=A+C*COS (K+G*L) 
12 
160: T=B+C*SIN (K+G*L) 
M 13 
170: X=P*(D-S):Y=P*(E-T) 
180: Z=f<X*X+Y*Y) 


N 14 
190: U=ACS (X/Z) 


0 15 
200: IF O>YLET U=-U 
210: IF ((P=-1)*(C>N))=1LET C=-C 
p 16 
Judge 1 
220: V=S+C*COS U 


Q 17 
230: W=T+C*SIN U:S=S+SGN S*.OOS:T=T+SGN T*.O 
OS 


R 18 
240: V=V+SGN V*.OOS:W=W+SGN W*.OOS 


s 19 
Pox 
250: PRINT "PO"iUSING "########.##"iSiT 
260: PRINT "P1"iUSING "########.##";Vi\-1 


T 20 
Poy 
270: END 
u 21 
v 
464 
v 22 
P1x 


w 23 
P1Y 


X 24 
v 


y 25 
v 


z 26 
v 
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SHARP 


Title 
A CIRCLE PASSING TWO POINTS C = P/P 


[ Formula] 


PROGRAM NO. 
p4-G-13 


This program finds a circle that passes two points P1 (x 1 , yt) and P2 (x 2 , Y2) - 
both are 
given - 
with radius R and the condition of discrimination entered. 
___ P2( X2, Y2) __ 
~ 


---~pl ( Xt,Yl) 


Fig. 26 A Circle Passing Two Points 


Condition of discrimination 
1 when the center of a circle to be created is located on the left side of a line that 
passes two points P1 and P2 . 
-1 when the center is located on the right side. 


[Example] 
y 


PI (0 ,5) 


---t--~~x 
0 (0,0) 
P2(5,0) 


P1 (0, 5) radius 5 
p2 (5, 0) 
Input for discrimination -1 


Fig. 27 Example (C = P /P) 
[ Operation ] 


CLOAD v G 1 3 v 
[ENTER[ 


Input 
Display 
Note 
Input 
Display 


Pl X= 
11 
2 
0 
[ENTER[ 
P 1 Y= 
12 


3 
5 
[ijill] 
P 2 X= 
13 


4 
5 
[E!illl 
P2 Y= 
14 


5 
0 
[ENTER[ 
R = 
15 


6 
5 
[ENTER[ 
J.L(1),R(-1)= 
16 


7 
-1 
~ill 
17 


PO 0. 00 
0. 0 0 
18 


19 


10 
20 
-240- 


Note 


Title 
A CIRCLE PASSING TWO POINTS C = P/P 
PROGRAM NO. 
p4-G-13 


Memory content 
A 1 
X 1 
B 2 
Y! 
c 3 
yl 
10: "A":DEGREE :INPUT "P1 X=";A 


D 4 
Xz 
20: INPUT "P1 Y="iB 
30: INPUT "P2 X=" ;o 
E 5 
Yz 
40: INPUT "P2 Y="; E 


F 6 
Radius 
50: INPUT "R="iF 
60: INPUT "J • L( 1 ) , R ( -1) ="; G 
G 7 
Judge 
70: C=F 


H 8 
v' 
80: H=D-A 
90: I=E-B 


I 
9 
v 
100: J=[(H*H+I*!) 


J 10 
v 
110: K=ACS (H/J) 
120: IF O>ILET K=-K 
K 1 1 v 
130: L=ACS ((C*C+J*J-F*F)/2/C/J) 


l 
12 
v 
140: M=A+C*COS ( K+G*L) 
150: N=B+C*SIN CK+G*L) 


M 13 
Pox 
160: M=M+SGN M*.OOS:N=N+SGN N•.OOS 
170: PRINT "PO" iUS ING "######## .##" ;r1;N 
N 14 
Poy 
180: END 


0 15 
267 


p 16 


Q 17 


R 18 
s 19 


T 20 
u 21 
v 22 
w 23 


X 24 
y 25 
z 26 
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SHARP 


Title 
I 


PROGRAM NO. 


A CIRCLE PASSING THREE POINTS C = P/P/P 
P4-G-14 


[ Formula] 


This program fmds the central coordinates and radius of a circle that passes three points 
P1 (xt,Yt), P2 (x2,Y2) and P3 (x3,y3)- all these are given. 


P 2 ( Xz, Yz) 


PI 


( X1 1 .YJ.) 
R 


0/ 


P 3 (X a, Ya ) 


y 
Fig. 28 A Circle Passing Three Points 


[Example] 1/ 


PI 
0 
( 0 ,50) 
iP3(I00,50) 
~ ~ X 
0 
P2 
(50.0) 


Fig. 29 Example (C = P /P /P) 


[ Operation ] 


CLOAD vG14v [ENTER I 


Input 
Display 
Note 
Input 
Display 
Note 


1 I SHFT[ ~ 
Pl X= 
11 


2 
0 
[ENTER[ 
Pl Y= 
12 


3 
50 
[ENTER! 
P2 X= 
13 


4 
50 [fillii[ 
P2 Y= 
14 


5 
0 
[ENTER[ 
P3 X= 
15 


6 
100 
[ENTER[ 
P3 Y= 
16 


7 
50 
fENTER[ 
17 


8 
PO 50.00 50.00 
18 


9 
[ENTER[ 
R 
50.0 0 
19 


10 
20 
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PROGRAM NO. 
Title 
A CIRCLE PASSING THREE POINTS C = P/P/P 
P4-G-14 


Memory content 


A 1 
X1 
B 2 
Y1 
c 3 
X2 
10: "A":DEGREE :INPUT "P1 X=";A 


D 4 
Y2 
20: INPUT "P1 Y=";B 
30: INPUT "P2 X=";c 


E 5 
X3 
40: INPUT "P2 Y=";o 


F 6 
50: INPUT "P3 X=";E 
Y3 
60: INPUT "P3 Y=";F 


G 7 
v 
70: G=C:H=D:GOSUB 500 


H 8 
v 
80: K=I:L=J 
90: G=E:H=F:GOSUB 500 
I 
9 
v 
100: X=(J-L) /CK-I) 


J 10 
v 
110: Y=I;tX+J 
120: IF I=E50LET Y=K*X+L 


K 11 
v 
130: M=X-A:N=Y-8 


L 12 
v 
140: R=[CM*rHf#N) 
150: X=X+SGN X*.005:Y=Y+SGN Y*.OOS 


M 13 
v 
160: PRINT "PQ";USING "####fl##tt.fi#";X;Y 


N 
v 
170: R=R+SGN R*.OOS 
14 
180: PRINT "R";USING "#flflflfl##fl.#ti";R 
0 15 
500: IF B=HLET I=I50:GOTO 520 
510: I=CG-A)/(8-H) 
p 16 
520: J=(B+H-I*(A+G))/2 
Q 17 
530: RETURN 
540: END 
R 18 
Radius 
349 
s 19 
T 20 
u 21 
v 22 
w 23 


X 24 
Pox 
y 25 
Poy 
z 26 
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SHARP 


Title 
I 


PROGRAM NO. 
DAYS BETWEEN DATES 
P4 -H-1 


[ Formula] 


This program figures out the number of days between two dates by presetting reference date. 
The case of a leap year is of course taken into account. 
The number of days includes one-side date. 


' 


[ Example] 


From 10/5/1976 to 2/20/1977: 
138 days 


From 10/5/1976 to 11/15/1977: 406 days 


[ Operation ] 


CLOAD '7H1'7 IINillJ 


[SHJ] ~ 


Reference year 
[EnER] 


Reference month 
[ENTER[ 


Reference day 
[Nrr® 


Appointed year 
[fillii] 


Appointed month 
[ENTER[ 


Appointed day 
[ENTER] 
Number of days displayed 


[ENTER] 


NOTE) In the case of presetting reference date anew, start the operation from ~ 


Input 
Display 
Note 
Input 
Display 
Note 


1 ! SH fT! 


~---) lA I 
START YEAR= 
11 


2 
1976 [ENTER[ MONTH= 
12 


3 
10 [ENTER[ DAY= 
13 


4 
5 [ENTER[ END YEAR= 
14 


5 
1977 [ijill] MONTH= 
15 


6 
2 [ENTER] DAY= 
16 


7 
20 [ENTER] 
17 


8 
DAYS 
138 
18 


9 
19 


10 
20 
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PROGRAM NO. 
Title 
DAYS BETWEEN DATES 
P4 -H-1 


Memory content 


A 1 


B 2 
t 
c 3 


D 4 
10: "A":Y=O 
20: IIJPUT "START YEAR=tl; R, "11GrHH= 11 ; s, II D ,., Y= 11 


E 5 
;r 


F 6 
30: INPUT "END YEAR="; u, "r10NTfl="; v, II Dfl Y= 
11 
; 1·1 


~~o: IF Y=1LET H=R+1925:GOTO 60 


G 7 
Month for SUB. 
50: II=R 


H 8 
Year for SUB. 
60: G=S:I=T 
70: GOSUB 500 
I 
9 
Day for SUB. 
30: J =I 
J 
90: IF Y=1LET H=U+1925:GOTO 110 
10 
No. of days 1 
100: H=U 


K 11 
110: G=V:I=~J 


L 
120: GOSU8 500 
12 
130: X=I-J 
M 13 
140: PRINT "DAYS",X 
150: GOTO 30 
N 14 
500: IF G-3>=0LET Z=-CG-3)*30.6-.S:GOSUG 600 
0 15 
:I=I-Z:GOTO 530 
510: H=H-1 
p 16 
520: Z=C-(G-3)-12)*30.6-.S:GOSUG 600: I=I-Z 
Q 17 
530: Z=H*365.2S:GOSUO 600:I=I+Z 
540: Z=H/100:GOSUB 600:1=!-Z 


R 18 
Start year 
550: Z=H/400:GOSUG 600:I=I+Z 


s 19 
Start month 
560: I=I-307:RETURN 
600: Xt:INT ABS Z:Z=SGN 
Z*X:RETUI~iJ 


T 20 
Start day 
385 
u 21 
End year 
v 22 
End month 
w 23 
End day 


X 24 
No. of days wanted 
y 25 
z 26 
,/ 
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SHARP 


Title 
I 


PROGRAM NO. 
CALCULATION OF PAST AND FUTURE DATES 
P4-H-2 


[ Formula 1 


This program figures out date "n" days after (or previous to) reference date. The number of 
days includes one-side date. 


[ Example 1 


Date 100 days after 3/10/1977: 6/18/1977 


[ Operation 1 


CLOAD 
'7H2'7 
[ENTER[ 


Inputting order 
Key operation 


1) 
I SHFT I ~ 


2) Reference year: 
1977 [ENTER[ 
3) Reference month: 
3 [ENTER[ 
4) Reference day: 
10 [ENTER[ 
D 
No. of d'Y' fwm do~<ed d•to 
100 [ENTER[ 
Desired date displayed 


[fif[jj] 


Repeat the same operation as shown above. 


NOTES) 1) 
This program is able to calculate between 1950 and 2000. 


2) To find date "n" days previous to reference date, operate the keys as -n [ENTER[ . 


Input 
Display 
Note 
Input 
Display 
Note 


1 w:m 
• .. ~ 
START YEAR= 
11 


2 
I 977 [ENTER] MONTH= 
12 


3 
3 [ENTER[ DAY= 
13 


4 
10 [ENTER] DAYS= 
14 


5 
100 I ENTER[ 
15 


6 
1977. 6. 18 
Calculation 16 
time: about 
7 
1 minute 
17 


8 
]\40 seconds. 18 


9 
19 


10 
20 


-246- 


Title 
CALCULATION OF PAST AND FUTURE DATES I PROGRAM NO. 


P4~H-2 


Memory content 


A 1 
Start year 


B 2 
Month 
c 3 
Day 
10: 
11 l\":X=fJ 
20: HJPUT "START 
YE.\1~=" iA 
D 4 v 
30: ItJPUT "f".IONTll=" iB 
E 5 
40: HlPUT 
"Di~.Y="; C 
50: IF )(=1 LET !'.=M1925 


F 6 v 
60: GOSU:J SOO:F=G 


G 7 v 
70: IfJPUT "D.A.YS="iH 
30: D=H+F 
H 8 
No. of days 
90: /\=1050::3=1 :C=Q 


I 
9 v 
100: A=M1:GOSUG 500 
110: IF D>GTHEN 100 


J 10 v 
120: A=A-1 
K 11 
130: B=B+1:GOSUB 500 
1 L,Q: IF D>GTHEN 130 


L 12 
150: B=G-1 


M 
160: GO SUO 500 
13 
170: C=D-G 


N 14 
130: IF X=1LET A=P.-1925 
190: PRWT USING "tltJ#tltt ." iAiUSING 
"I/;'.~ ;1/ • II ; D ; c 
0 15 
200: GOTO 70 


p 16 
500: IF 3>8LET I=A-1:J=B+13:GOTO 520 
510: J=G+1:I=A 
Q 17 
520: Z=365.25*I:GOSU8 600:Y=Z 


R 18 
530: Z=30.6•J:GOSUB 600 
540: G=Y+Z+C-621 049 
s 19 
550: RETURtJ 


T 20 
600: li=HJT (SGr! Z*Z):Z=SGN Z*t! 
610: R ETURf·J 
u 21 
620: END 
v 22 
371 
w 23 
X 24 v 
y 25 
v' 


z 26 v 


-247- 


SHARP 


Title 


PROGRAM NO. 
CALCULATION OF INTEREST RATE ON LOAN 
P4-H-3 


[ Formula] 


Interest = Principal x No. of days 


36500 
x Rate of interest 


Unit of interest: 
1 dollar. 
( Decimal fractions be reckoned as a unit. ) 


[ Example ] 


Principal (dollar) 
No. of days 
Interest (dollar) Amount with interest added (dollar) 


58,000 
60 
811 
58,811 


45,000 
45 
472 
45,472 


Total 103,000 
1,283 
104,283 


[ Operation ] 


CLOAD '7H3 '7 [ENTER[ 


1) 
[SHFT[ ~ 


Rate a/interest [mER[ 


Principal 
[EITER[ 


No. of days 
[ENTER[ 
Interest 


I 
[ENTER[ 
Amount with interest included (TOTAL) 


2) To calculate total: 


I SHFT I ~ 
Amount with interest included 


[ENTER[ 
Total of interests 


[ENTER[ 
Total amount with interests included (T.P.I) 


Input 
Display 
Note 
Input 
Display 
Note 


1 ISH fT I ~ 
RATE(%)= 
11 
RATE 
472 
2 
8.5 [ENTER[ 
PRINCIPAL= 
12 
[Eij[ii] 
TOTAL 
45472 
3 
58000 [ENTER[ 
DAYS= 
13 
I SHFT I ~ 
T. PRINCIPAL 
103000 


4 
60 [ENTER[ 
14 
[ENTER[ 
T. INTEREST 
1283 


5 
INTEREST 
811 
15 
[ENTER[ 
T.P.I. 
104283 


6 
[ENTER[ 
TOTAL 
58811 
16 


7 
[ENTER[ 
RATE(%)= 
17 


8 
8.5 [ENTER] 
PRINCIPAL= 
18 


9 
45000 [rffiiil 
DAYS= 
19 


10 
45 [Eij£R1 
20 
-248- 


Title 
CALCULATION OF INTEREST RATE ON LOAN 


PROGRAM 
NO. 


P4-H-3 


Memory content 


A 1 
Rate of interest 


B 2 
Principal 
c 3 
No. of days 
10: 
II l\": E=O: F=O 


D 4 
Interest 
20: INPUT 
"RATEO~) =" ;,; 


E 5 
Total principal 
30: INPUT "PRINCIPAL=";J 
L,O: INPUT "DAYS=";c 


F 6 
Total interest 
50: GO SUB 500 


G 


(![~1: E=O+E:F=D+F 


7 
70: PRHJT "HJTEREST" .-D 


H 8 
nr,. 
uu. PfiHlT "TOTf\L" ,G+D 
90: GOTO 2-& 
I 
9 
100: ''8" 


J 10 
1'l 0: PR IIJT ''T .PfUNCIPAL",E 
120: PRifJT "T. HHER EST", F 
K 11 
130: Pf\ INT "T.P.I",E+F 


L 12 
1 ItO: EIID 
500: D=HJT ( G* c I 36 5 00* A+ • S"1 ) 


M 13 
510: R ETURIJ 


N 14 
207 


0 15 
p 16 


Q 17 


R 18 
s 19 
T 20 
u 21 
v 22 
w 23 
X 24 
y 25 
z 26 


-249- 


SHARP 


Title 
I 


PROGRAM NO. 
CALCULATION OF INTEREST ON DEPOSITES 
P4-H--5 


[ Formula] 


Is the same as that of H3, but the rate should be preset in this calculation 


Interest = Principal x No. of days 


36500 
x Rate of interest 


~ Amount interest added = ~ Principal-+ ~ Interest 


[Example] 


(Unit of interest: 100 dollar; any fractional sum of less than 1 dollar discarded) 
Rate of interest: 7(%) 


Principal (dollar) 
No. of days Interest (dollar) Amount with interest added (dollar) 


500 
60 
5 
505 


450 
125 
9 
459 


7,890 
175 
261 
8151 


Total 
8840 
275 
9115 


[ Operation ] 


CLOAD vH 5 '7 
[ENTER[ 
(NOTE) Repeat key operation in such an order 


1) Rate presetting 
as " ffiTIJ 
~ [ENTIRJ 
[ENTER[ 
[ENTER[ " 


in the first place, and check that the 


Ull£ll 
[g 
total memory is cleared. ("CL.OK" 


Rate 
[ENTER[ 
will be displayed if cleared.) 
2) Calculation of interest 


[SID] 
~ 
Principal 
[illii] 


No. of days [ENTER I Interest 


[ENTER[ Amount with interest included (TOTAL) 


[ENTER[ 
3) Total 
I SH FT j 
~ 
Amount with interest included 


[ENTER I Total interest 


[ENTER[ 
Total amount with interest included (T.P.I.) 


Input 
Display 
Note 
Input 
Display 
Note 


1 
ISH FT I lg 
RATE(%)= 
11 
ISH FT I ~ 
T. PRINCIPAL 
8840 
2 
7[EITER[ 
12 
[ENTER[ 
T. INTEREST 
275 


3 
I SHFT[ ~ 
PRINCIPAL= 
13 
[ENTER[ 
T.P.I 
9115 


4 
500 [ENTER[ 
DAYS= 
14 
[ENTER[ CL.OK 
5 
60 [ENTER[ 
INTEREST 
5 
15 


6 
[ENTER[ 
TOTAL 
505 
16 
7 
]ENTER] 
) 
17 


8 
( 
18 
9 
19 


10 
20 
-250- 


Title 
CALCULATION OF INTEREST ON DEPOSITES 


PROGRAM NO. 
P4- H-5 


Memory content 


A 1 
Principal 


B 2 
No. of days 
c 3 
Rate 


D 4 
T. Interest 


E 5 
T. Principal 
10: "C":INPUT "RATE(%)="iC 
20: END 
F 6 
30: "8" 


G 7 
40: PRINT "T.PRINCIPAL",E 
50: PRINT "T.INTEREST",D 


H 8 
60: PRINT "T.P.I",E+D 
70: E=O:D=O:PRINT "CL.OK":END 
I 
9 
80: "A":USING :INPUT "PRINCIPAL="iA 


J 10 
90: INPUT "DAYS=" iS 
100: X= INT (!NT (A/100)*B*C/36500*100) 


K 11 
110: E=E+A 
L 12 
120: D=D+X 
130: PRINT "INTEREST",X 
M 13 
140: PRINT "TOTAL",A+X 


N 14 
150: GOTO 80 
160: END 


0 15 
227 
p 16 


Q 17 
R 18 
s 19 
T 20 
u 21 
v 22 
w 23 
X 24 
Interest 
y 25 
Total 
z 26 


-251- 


SHARP 


Title 
CALCULATION OF PRESENT VALUE OF 
I PROGRAM NO. 
COMPOUND-INTEREST ANNUITY 
P4~H~7 


[ Formula] 


General formula: Present value of term-end payment annuity P= RX 1-(l+i)-n 


i 


Present value of annuity due 
P'= RX I-( l+i)-n X(l+i) 
i 


Payment at the end of every term 
R= PX 
i 
1-(l+i)n 


n : term (number of settlement term) 
i : rate of interest 
R : payment (present value) 


[Example] 


1) Find the present value of annuity which will be paid 700 dollar at the end of every half year 
term for 8 years, provided that the rate of compound interest is 5%. 
2) Find the present value of annuity which will be paid 700 dollar at the top of every half year 
term for 8 years, provided that the rate of coJ,Tipound interest is 50%. 


3) Suppose that a sum of 30000 is loaned at the rate of compound interest of 8% (a half- 
yearly settlement ) , and that it should be repaid with installments of the same sum at 
half-yearly compound interest for 5 years: How much is the installment paid at the end of 
every term? 
(Unit of interest: 1 dollar; less than one dollar rounded) 
[ Operation ] 


CLOAD vH7'7 [ENTER[ 


1) Present value of term-end payment annuity (Ex. 1) 
3) Payment at the end of every term 


[SHFT[ ~ 
(Ex. 3) 
(Annuity) Amount paid at the end of term [ENTER I 
ISH fT I 
[QJ 


Rate(%) 
[ENTER[ 
(Loan) Present value of 
Term 
[ENTER[ 
payment at the 
[ENTER[ 
Number of settlement term 
[ENTER[ 
end of term 


Present value of 
Rate 
[ENTER[ 
term-end pay- 
Term 
[ENTER[ 
ment annuity 
Number of settle- 
[ENTER[ 
2) Present value of annuity due (Ex. 2) 
ment term 


ISH FT I ~ 
Amount paid 
(Annuity) Amount paid at the top of term [ENTER[ 
at the end of 
Rate(%) 
[ENTER[ 
every term 


Term 
[ENTER[ 
Number of settlement term 
[ENTER[ 
Present value of 
annuity due 
I 


Input 
Display 
Note 
Input 
Display 
Note 


1 
[lHJTj 
~ AMOUNT PAID= 
(Ex. 1) 
11 
I SHFT[ 
[QJ 
AMOUNT PAID= 
(Ex. 3) 


2 
700 [EITER[ RATE(%)= 
12 
30000 [EITER[ RATE(%)= 


3 
5[ENTER[ TERM= 
13 
8 [EITER[ TERM= 


4 
8[ENTER[ NUMBER= 
14 
5 [EITER[ NUMBER= 


5 
2[EITER[ p 
9139 
15 
2 [EITER[ 
R 
3699 


6 
I SHFT[ 
~ 
AMOUNT PAID= 
(Ex. 2) 
l6 


7 
700 [ENTER[ RATE(%)= 
17 


8 
5 [ENTER[ TERM= 
18 
g 
8 [ENTER[ NUMBER= 
19 


10 
2 [ENTER[ P, 
9367 
20 


-252- 


Title 
CALCULATION OF PRESENT VALUE OF 
PROGRAM NO. 
COMPOUND-INTEREST ANNUITY 
P4-H-7 


Memory content 


A 1 
Amount paid 


B 2 
Rate of interest 
c 3 
Term 
10: "A":GOSUB SOD 


! 
D 4 
20: Z=INT (A*Y/8+.5) 
30: PRINT "P",Z 
E 5 
40: END 
F 6 
50: "B":GOSUB SOD 
60: Z=INT (A*Y/8*(8+1)+.5) 
G 7 
70: PRINT "p,",z 


H 8 
80: END 
90: "C":GOSUB 500 
I 
9 
100: Z=INT (A*B/Y+.S) 


J 10 
110: PRINT "R",Z 
120: END 
K 11 
500: USING 


L 12 
510: INPUT 
II Ar-10UNT PAID="; A 


520: INPUT "RATE OD ="; 8 
M 13 
530: INPUT "TERr·1="; C 


N 14 
540: INPUT "NUr•1BER="; X 
550: 8=8/X/100:C=C*X 
·o 15 
560: Y=1-C8+1)"(-C) 
570: 
RETUR~.J 
p 16 
580: END 


Q 17 
238 
R 18 
s 19 


T 20 
u 21 
v 22 
w 23 


X 24 Number of 
settlement term 
y 25 
v 


z 26 
v 


I 


-253- 


SHARP 


Title 
CALCULATION OF FUTURE & PRESENT VALUE 
PROGRAM NO. 


(by compound interest) 
P 4- H-8 


[ Formula] 


Compound interest future value= Compound interest present value x (1 + i)n 


I 


Compound interest present value= Compound interest future value x (1 + i)-n 


i : rate of interest 
n: term 


[Example] 


1) Find the compound interest future value when you deposit a sum of 1500 dollar at the 
yearly rate of interest of 6% for 3 years. 
2) Find the compound interest future value under the same conditions as Example 1) but 
compounded twice a year. 
3) Find the principal necessary to deposit in order to obtain the future value of 5000 dollar, 
provided the yearly rate of interest be 6.5%. 
( Unit of interest: 1 dollar;) 
less than 1 dollar rounded 


[ Operation ] 


C LOAD VHgV 
[ENTER[ 


1) Compound interest future value (Examples 1 & 2) 


WJ] 
~ 


Principal 
[ENTER[ 


Rate of interest 
[ENTER[ 


Term 
[ijilll 


Number of settlement term 
[ENTER[ 
Compound interest future value 


2) Compound interest present value (Example 3) 


[ill!] 
~ 


Compound interest future value [ENTER[ 


Rate of interest 
[ENTER] 


Term 
[EllER] 


Number of settlement term 
[ENTER] 
Compound interest present value (Principal) 


Input 
Display 
Note 
Input 
Djsplay 
Note 


1 I SHFT] 
~ PRINCIPAL= 
(Ex. 1) 
11 
[J[ff] 
~ 
PRINCIPAL= 
(Ex. 3) 
2 
1500 [EllER[ RATE(%)= 
12 
5000 [ENTER[ 
RATE(%)= 


3 
6 [ENTER] TERM= 
13 
6.5 [EllER] TERM= 
4 
3 [EllER[ NUMBER= 
14 
2 [EllER] NUMBER= 


5 
1 [EllER] FUTURE VALUE 1787 
15 
1 [lill] PRESENT VALUE 4408 


6 
ISH FT I 
~ PRINCIPAL= 
(Ex. 2) 
16 


1 
1500 [EllER] RATE(%)= 
11 
8 
6 [EllER[ TERM= 
18 
9 
3 [EllER[ NUMBER= 
19 


10 
2 [EllER] FUTURE VALUE 
1791 
20 


-254- 


Title 
CALCULATION OF FUTURE & PRESENT VALUE 
PROGRAM NO. 


(by compound interest) 
P 4- H -8 


Memory 'content 


A 1 
Principal 
8 
2 
Rate of interest 
c 3 
Term 
10: "/\":USiviG 


D 4 
20: GOSUG 5()0 
30: Z=HJT CA*Y+.5) :PRWT "FUTURE IJl\LUE",z 
E 5 
40: END 
F 6 
SO: "B":USING 
60: GO SUO 500 


G 7 
70: Z=HH (A/Y+.5):PRINT "PRESErJTV,~LUE" ,z 
H 8 
3C: END 
500: X=1:INPUT "PR INC! PAL=" ;,t, 
I 
9 
510: If·JPUT "RATE(%)=";8 


J 10 
520: INPUT "TERf.'l="iC 
530: INPUT "flUf·iOER="iX 


K 11 
540: 8=G/i{ 


L 12 
550: 
c=c-~x 
560: Y=CB/100+1)"C 


M 13 
570: RETURN 


N 14 
530: END 
208 
0 15 
p 16 


Q 17 


R 18 
s 19 


T 20 
u 21 
v 22 
w 23 
X 24 Number of settlement term 
y 25 
v 


z 26 
v 


-255- 


SHARP 


Title 


PROGRAM NO. 
INSTALLMENT CALCULATION 
P 4- H-9 


[ Formula] 


General formula: 
S= (P-R)X 
i 
1-(l+i) n 


S: 
installment 


P: 
price 
R: deposit 
n: number of times of installments 
i: 
interest 


[Example] 


Suppose you pay 500 dollar down on a 3,000 dollar stereo set and pay the rest by 11 months' 
installments at the monthly rate of interest of 1%. So find the monthly payment. 


(Unit ofinterest: 1 dollar;) 
less than 1 dollar rounded 


[ Operation ] 


CLOAD '7Hg'7 
[ENTER I 
wm 
~ 
Price 
[ENTER[ 
Deposit 
[ENTER[ 
Monthly rate 
[ENTER I 


No. of times of installments 
[ENTER[ 
Monthly payment 


[ENTER[ 
Last payment 


Input 
Display 
Note 
Input 
Display 
Note 


1 
[~] 
~ 
PRICE= 
11 


2 
3000 [ENTER[ DEPOSITE= 
12 


3 
500 [ENTER[ RATE(%)= 
13 


4 
1 [ENTER[ TERM= 
14 


5 
11 [ENTER] M.PAYMENT 
242 
15 


6 
[ENTER] LAST PAYMENT 
233 
16 


7 
17 


8 
18 


9 
19 


10 
20 


-256- 


Title 
INSTALLMENT CALCULATION 
I PROGRAM NO. 


P4-H-9 


Memory content 


A 1 
Price 


B 2 
Deposit 
c 3 
Rate 
10: "A":USING 


D 4 v 
20: INPUT "PRICE=";A 
30: INPUT "DEPOSITE=";B 


E 5 
40: INPUT "RATE(%)=";C 


F" 
6 
50: INPUT 
"TER~1="; X 


60: D=A-B 
G 7 
70: C=C/E2 


H 8 
80: 
Y=D*C/(1-(1+C)~(-X)) 
90: Y=INT (Y+.9) 
I 
9 
100: FOR A=1TO X-1 
J 10 
11 0: D=INT (D* (1 +C)+ .9) -Y 
120: NEXT A 
K 11 
130: PRINT 
"f~. PA n1ENT", Y 


L 12 
140: PRINT "LAST PAYMENT",D 
150: END 
M 13 
197 


N 14 


0 15 
p 16 


Q 17 


R 18 
s 19 


T 20 
u 21 
v 22 
w 23 
X 24 
No. of times 
y 25 
M. payment 
z 26 


-257- 


SHARP 


Title 
I 


PROGRAM NO. 
CALCULATION OF DEPRECIATION 
P 4- H-10 


- 
[ Formula] 


Depreciation amount = acquisition cost x rate of depreciation 


Amount left at the term end = acquisition cost- depreciation amount 


[ Example] 
(Fixed rate method) 


Note: Less than one dollar is rounded. 
Ex. (1) 
Depreciation rate: 3.59 (%) 


Acquisition 
Depreciation 
Amount left at the 
cost 
amount 
term end 


65,000 
2,333· 
62,667 


55,000 
1,974 
53,026 
I Total 
120,000 
4,307 


Ex. (2) Schedule of depreciation 
Suppose that acquisition cost of a machine is 700,000 dollar, that the durable year is 
7 years and that its scrap value is 10% of the acquisition cost. So, schedule the 
depreciation of a half-yearly settlement for this machine. 


Rate of depreciation = 1 _ ( 
scrap value 
) ~ 
n : number of settlement term 
acquisition cost 


Term 
Value at the 
Depreciation 
Agregate of 
beginning of term 
amount 
depreciation amount 


1 
700,000 
106,_162 
106,162 


2 
593,838 
90,061 
196,223 
3 
503,777 
76,402 
272,626 


7 
260,929 
39,572 
478,646 
8 
221,357 
33,571 
512,217 
9 
187,786 
28,479 
540,696 


13 
97,264 
14,751 
617,490 


14 
82,513 
12,513 
630,000 


Input 
Display 
Note 
Input 
Display 
Note 


1 
I SHFT[ 
[A) 
RATE(%)= 
(Ex. 1) 
11 
CillTI 
(g 
ACQ. COST= 
(Ex. 2) 


2 
3.59 [ENTER[ ACQ. COST= 
12 
700000 [ENTER[ 
SCRAP VALUE= 


3 
65000 [ENTER[ EVERY TERM 
2333 
13 
10 [ENTER[ NUMBER= 


4 
[ENTER] END TERM 
62667 
14 
14 [ENTERI 
1 
106162 
59383E 


5 
) 
15 
[ENTER] 
2 
90061 
503777 


6 
( 
16 


7 
[S[ffl 
~ 
T.ACQ.COST 
120000 
17 


8 
[ENTER] 
T. EVERY TERM 4307 
18 
[ENTER] 
14 
12513 
70000 


9 
19 
[ENTER I TOfAL 
630000 


10 
20 


-258- 


SHARP 


PROGRAM NO. 
Title 
CALCULATION OF DEPRECIATION 
P4-H-10 


[ Operation ] 


CLOAD vHtov 
]ENTER] 


(Ex. 1) 


UffiJ 
~ 


Depreciation rate 
]ENTER] 


Acquisition cost 
]ENTER I Depreciation amount 


]ENTER] 
Amount at the term end 


]ENTER] 


Totalization 


UffiJ 
~ Total acquisition cost 


[ENTER] Total depreciation amount 


(Ex. 2) 


[]_~uJ 
19 


Acquisition cost 
[ENTER] 


Scrap value 
]ENTER] 


(n) number of settlement term [ffiij] 


]ENTER] Depreciation amount of 1st term 
Value at the beginning of 2nd term 


[iliii1 Depreciation amount of 2nd term 
Value at the beginning of 3rd term 


]ENTER] nth term············ 
Scrap value 


]ENTER] Total amount of depreciation 


Input 
Display 
Note 
Input 
Display 
Note 


1 
11 


2 
12 


3 
13 


4 
14 


5 
15 


6 
16 


7 
17 


8 
18 


9 
19 


10 
20 


-259- 


PROGRAM NO. 
Title 
CALCULATION OF DEPRECIATION 
P4-H-10 


Memory content 
A 1 Depreciation rate 


B 2 Acquisition cost 
c 3 
v 
10: "A":X=O:Y=O:USitJG 


D 4 Depreciation amount 
20: It·lPUT "RATE(%)="iA 
30: I;JPUT "ACO.COST= 
11 iB 


E 5 Total depreciation amount 
40: }{=X+D 


F 6 
v 
50: C=HJT (D*A/100) 
60: Y=C+Y 


G 7 
70: PRHJT 
II EVER YTERr-1'', c 
H 8 
30: Z=l3-C:PRINT II END TERN 11,Z 
90: GOTO 30 
I 
9 
100: "8" 


"" 


10 
110: PRINT "T.ACQ.COST",X 
120: PRINT "T.EVERY TERW',y 


K 11 
130: END 
11+0: "C":INPUT "ACQ.COST="iG 
L 12 
150: INPUT "SCRAPVALUE="iC 


M 13 
160: INPUT "tJW1BER=" iX 
170: A=B*C/100 
N 14 
130: Y=1/X 
0 15 
190: A=1-CA/8)"Y 


20~: F=INT (/\*(5+.5)/£5 
p 16 
210: E=O 
220: FOR l\=1TO 
v 
Q 17 
" 
230: D=HJT { F*O) 
R 18 
2Lt0: E=D+E 
s 19 
250: 0=8-D 
260: PRINT USING 
11### II; A; us IrJG 
fl f.l t! fl {/ j'f // Jl f J ;'/ 1':/ t I; 


T 20 
DiB 


u 21 
270: tJEXT A 
230: PRINT "TOTAL"iUSING II tJ tl tJ # tt II;':! tl t.t :; tl t.t tl tf. II ; E 
v 22 
290: Et·JD 


w 23 
392 


X 24 Total acquisition cost 
y 
25 Total depriciation amount 
z 26 Amount at the term end 


-260- 


SHARP 
I 


PROGRAM NO. 
Title 
CATEGORIZED TOTALIZATION [ I ] 
P4-H-14 


[ Formula] 


~rizontal 
v 
~~ I 
2 
........ 
m 
Total 
This program calculates 
data 
the horizontal and vertical 
I 
totals and the ratio and grand 


2 
total of the grand total. 


n 


Total 
Grand 
total 
Ratio 
% 


[Example] 


Results of sales 


Area (1) Area (2) Area (3) Area (4) Area (5) 
Total 


Article (A) 
1000 
200 
500 
800 
700 
3200 


Article (B) 
IOO 
50 
60 
70 
60 
340 
To classify the sales of 4 


Article (C) 
500 
300 
200 
IOO 
200 
1300 
kinds of articles by 5 areas, 
and analyze the component 
Article (D) 
300 
IOO 
50 
200 
100 
750 
ratio of each area: 


Total 
I900 
650 
8IO 
I 170 
I060 
5590 


Ratio 
33.99 
I163 
14.49 
20.93 
18.96 
100 


[ Operation ] 


CLOAD vH14v [ENTER[ 


1) Memory clear 
2) Preset of the number of vertical and 


[Sl[f] 
[Q] 
horizontal data 


Aftet clearing memory, input the 
[slliJ 
[g 


number of horizontal and vertical 
V.No. 
data. 
H.No. 
(Up to 145) 


Input 
Display 
Note 
Input 
Display 
Note 


1 wm 
[Q] 
11 
) 


2 
[Sl[ffl 
[g 
V.N.= 
12 
~ 


3 
4 ~NTER~ H.N.= 
13 
1060 [illjjl I 
I900 
33.99 
4 
5[ENTERI 
14 
[ENTER I 2 
650 
11.63 


5 wm 
~ 
DATA= 
15 
) 


6 
1000 [ENTER: 
( 
16 
\ 


7 
200 [ENTER; 
\ 
17 
[EHTERi 
5 
I060 
I8.96 


8 
500 [ENTER: 
18 
[ENTER[ 
TOTAL 
5590 


9 
800 l;!llE!ll 
/ 
19 


10 
700 !ENTER 
I 
3200 
20 
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SHARP 


PROGRAM NO. 
Title 
CATEGORIZED TOTALIZATION [ I ] 
p4-H-14 


3) Data input 


ISH FT I 
~ 
~E [[!ill] 
Input the horizontal data in order. 


I 


[ENTER[ 
Total of the horizontal data 


After inputting "m x n" times: 


DER[ Total of the vertical data component ratio 


[ENTER[ 
Total 


4) Data correction 


To correct the date input immediately before: 


I SHFT I 
~ 


Wrongly input data 
[ENTER[ , then input a right data and continue inputting operation. 


Input 
Display 
Note 
Input 
Display 
Note 


1 
11 


2 
12 


3 
13 


4 
14 


5 
15 


6 
16 


7 
17 


8 
18 


9 
19 


10 
20 
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Title 
CATEGORIZED TOTALIZATION [ I ] 


PROGRAM NO. 
P4-H-14 


Memory content 


A 1 
Vertical N 
8 
2 
Horizontal N 
c 3 
Horizontal total 
10: "C":INPUT "V.N.::";A 


D 
20: INPUT "H.N.=";B 
4 
Total 
30: END 
E 5 
v 
40: "D":CLEAR 
SO: END 
F 6 
v 
60: "A":E=10:F=1 :H=1 
G 7 
For data input 
70: INPUT "DATA=";G 
80: C=G+C:A(E)=ACE)+G:D=G+D 


H 8 
v 
90: IF 8<=FTHEN 110 
I 
9 
Component ratio 
100: F=F+1:E=E+1:GOTO 70 
110: F=F+1:E=E+1:PRINT USING "####";H;USING 


~ 10 
Data area 
"tttttttttt#tt###tt";c 


K 11 
120: IF H>=ATHEN 1-40 
130: C=O:E=10:F=1:G=O:H=H+1:GOTO 70 


L 12 
140: FOR E=fOTO 8+9 
M 13 
150: I=A(E)/D+SGN A(E)*.OOOOS:I=I*100 
160: PRINT USING "####";E-9;USING "######### 


N 14 
##";A(E);USING "###.##";I 


0 15 
170: NEXT E 
180: USING :PRINT "TOTAL",D 


p 16 
190: "8": INPUT "rUSS DATA=" ;G 


Q 17 
200: C=C-G:D=D-G:E=E-1:F=F-1 
210: A(E)=A(E)-G:GOTO 70 


R 18 
220: END 
s 19 
396 


T 20 
u 21 
v 22 
w 23 
X 24 
y 25 
z 26 
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SHARP 


PROGRAM NO. 
Title 
CATEGORIZED TOTALIZATION [ II ] 
P4-H-15 


[ Formula] 


This program totals the slips used for business calculation. 
When the code and quantity (amount) are input at random, an amount of each code number 
is aggregated. 


[ Example] 


Input data 
Output amount 


Code No. 
Amount 
Unit price 
Code No. 
Amount 
Comp. ratio(%) 


3 
10 
220 
1 
3300 
3.26 
8 
15 
200 
2 
1320 
1.31 
4 
22 
255 
3 
4400 
4.35 
5 
12 
850 
4 
18870 
18.67 
1 
22 
150 
5 
10200 
10.09 


3 
10 
220 
6 
60000 
59.35 
2 
11 
120 
7 
0 
0.00 


6 
24 
2500 
8 
3000 
2.97 
4 
52 
255 
9 
0 
0.00 


10 
0 
0.00 


[ Operation ] 


CLOAD vH15v 
[ENTER[ 


1) Code No. presetting (Must be operated 
3) Total 
at the start of calculation) 
[][ill [g 
[SHliJ 
~ 
(Memory clear) 
I 
,-E+ll 


Amount & component ratio 
Code No. [ENTER! (Up to 166 possible) 
(%) 


2) Data input 
I ENTER) 
Total 


SHffl 
~ 
[;' 


[N_ill] 
((To find an amount from quantity and unit price, operate in such an) 


a 
rmr.R] 
order as quantity [IJ and unit price 
(tll:ill] .) 


Input 
Display 
Note 
Input 
Display 
Note 


1 
I SHFT I 
@ 
MAX= 
11 
ISH FT1 
[g 
I 
3300 
3.26% 


2 
10 [ffi_E]] 
12 
[ENTER! 
2 
1320 
1.31% 


3 [lliiJ 
~ 
CODE.NO.= 
13 
_\. 


4 
3[ffill] DATA= 
14 
1 


5 10 [%) 220 lENTER] 
15 
\ 


6 
) 
16 
[ENTER! 
10 
0 
0%. 


7 
\ 
17 
I ENTER I TOTAL 
101090 


8 
4 [ENTER! 
18 
9 52 [%] 255 I ENTER I 
19 


10 
20 
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Title 
CATEGORIZED TOTALIZATION [ II ] 
PROGRAM NO. 
P4-H 
15 


Memory content 


A 1 
Max. No. 


8 
2 
Code No. 
c 3 
For data input 
10: "B":CLEAR 


D 4 
Total 
20: INPUT "MAX=";A 
30: END 
E 5 
v 
40: "A":INPUT "CODE.NO.=";B 


F 6 
v 
50: INPUT "DATA=";C 
60: IF B>ABEEP 2:GOTO 40 


G 7 
v 
70: 8=8+9: A (B)= A ( 8) + C : D = D + C 


H 8 
80: GOTO 40 
90: "C":FOR F=1TO A 


I 
I 
9 
100: G=F+9:E=ACG)/D+SGN A(G)*.OOOOS:E=E*100 


J 
10 
Data 
110: PRINT USING "####";F;USING "########### 
";A(G);USING "#####.##";E;"%" 


K 11 
120: NEXT F 


L 12 
130: USING :PRINT "TOTAL",D 
140: END 
M 13 
229 


N 14 


0 15 
p 16 


Q 17 
R 18 
s 19 
T 20 
u 21 
v 22 
w 23 
X 24 
y 25 
z 26 
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SHARP 


Title 
I 


PROGRAM NO. 
RANKING DECISION 
P4 -H-16 


[ Formula] 


This program decides rankings of some data and outputs them in the order from the highest to 
the lowest, regardless of whether data are zero, minus or plus. 


[ Example] 


When these numbers "123, 23, -45, 0, 45, 854,51,-564,-0.025, 0, -56,456, 23" are put 
from the highest to the lowest, the result is "854, 456, 123,51, 45, 23, 23, 0, 0, -0.025,-45, 
-56, -564". 


[ Operation ] 


CLOAD vH16v (ij@ 


1) Data input 


WFL 
~ 


[3ta 
[fillnJ 
(The computation takes about 5 minutes 
because of rearrangement of 35 data.) 


2) To start calculation 


ISH FT I ~ 
I 
IENfER] 
data are displayed in the order from the highest to the lowest. 


Input 
Display 
Note 
Input 
Display 
Note 


1 
ISH FT I 
~~ 
DATA= 
11 


2 
123[ENTER] DATA= 
12 


3 
23\ENHRI 
l 
13 


4 
I 
14 


5 
\ 
15 


6 mm 
~ 
1 
854.0000 
16 


7 
ll!illl 2 
456.0000 
17 


8 
[ENTER] 
) 
18 - 


9 
[ENTER[ 
( 
19 


10 
13 
-564.0000 
20 


-266- 


PROGRAM NO. 
Title 
RANKING DECISION 
P4-H-16 


Memory content 


A 1 
v 


8 
2 
v 


c 3 
v 
10: "8": G=O: CLEAR :8=10 


D 4 
20: INPUT "DATA=";A(B) 
30: G=G+1 
E 5 
40: IF G>3SLET G=3S:PRINT "MAX.OVER PUSH A" 


F 6 
:END 


50: 8=8+1 
G 7 
No. of data 
60: GOTO 20 


H 8 
70: "A" 
80: FOR C=10TO G+8 


I 
9 
90: FOR A=C+1TO G+9 


~ 10 
100: IF·ACC)>ACA)THEN 12ID 
Data area 
110: 8=ACC) :A(C)=A(A) :A(A)=B 
K 11 
120: NEXT A 


L 
130: NEXT C 
12 
140: FOR A=1TO G 
M 13 
150: B=A+9 
160: PRINT USING "####";A;USING "###fltl#tl##tlfl 
N 14 
.fi###";A(B) 
0 
15 
170: NEXT A 
180: END 
p 16 
237 
Q 17 


R 18 
s 19 
T 20 
u 21 
v 22 
w 23 
X 24 
y 25 
z 26 
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SHARP 


Title 
PROGRAM NO. 
CHANGING OF ORDER 
P4-H-17 


[ Formula] 


This program changes places of some pairs of data and outputs them in the order from highest 
to the lowest, or vise versa. A datum must be a positive number of 5 digits, and no figures below 
the decimal point can be input. 
A pair of data mean such things as an examinee's number and his marks. Either of the examinee's 
number and his marks. Either of the examinee's number and the marks can be used as the 
standard for this program. 


[ Example] 


Data I 
Data 2 
Notes: 
No. of data is possible up to 150. 


Examinee's 
Marks 
number 
(Ex. 1) 
4 
90 
To put the data shown in the table left in order of the 


3 
95 
examinee's number: 


1 
100 
(Ex. 2) 


5 
80 
To put them in order from the highest marks to the lowest. 


2 
60 


(Ex. 1) 
(Ex. 2) 


Data 1 
Data 2 
Data 1 
Data 2 


Examinee's 
Marks 
Examinee's 
Marks 
number 
number 
1 
100 
1 
100 


2 
60 
3 
95 


3 
95 
4 
90 


4 
90 
5 
80 


5 
80 
2 
60 


Input 
Display 
Note 
Input 
Display 
Note 


1 
ISH fT I 
[g 
DATA 1 = 
(Ex. 1) 
11 
[ENTER I 
4 
4 
90 


2 
4 [EITER[ DATA 2= 
12 
[ENTER[ 
5 
5 
80 


3 
90 [llifR] DATA 1 = 
13 


4 
) 
14 


5 
( 
15 


6 
60 [ENTER[ 
16 


7 
[]Hrf] 
lEl 
17 


8 
Ism: 
~ 
1 
1 
100 
18 
9 
lf!illj 
2 
2 
60 
19 


10 
[ENTER I 
3 
3 
95 
20 
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SHARP 


Title 
CHANGING OF ORDER 
I 


PROGRAM NO. 
P4-H- 17 


[ Operation ] 


CLOAD VHI7V 
[ENTER[ 


I) Data input 


ISH FT I 
[Q] [;•I 


[ENTER[ 


ta 2 
[ENTER[ 


2) Output from the highest to the lowest or from the lowest to the highest: 


In order from the highest 
I SHFT[ 
[Q] 


~n order from the lowest 
I SHFT I 
[E) 


3) Changing of the order of data 1 or data 2 


Data 1 
Data 2 


ISH FT I 
[@] 
mm 
~ 


Result Jisplayed 
Result dlsplayed 


[EITEl[ 
[EITER[ 


LJ 
LJ 


Input 
Display 
Note 
Input 
Display 
Note 


1 
OOfl [Q] 
(Ex. 2) 
11 


2 
ISH FT I ~ 
1 
1 
100 
12 


3 
[EITEl[ 
2 
3 
95 
13 


4 
[EIHR[ 
3 
4 
90 
14 


5 
[EllER[ 
4 
5 
80 
15 


6 
[EITEl[ 
5 
2 
60 
16 


7 
17 


8 
18 
9 
19 


10 
20 
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I 


PROGRAM NO. 
Title 
CHANGING OF ORDER 
P4-H-17 


Memory content 


A 1 v 


B 2 
Count 


~ 


c 
Input data 1. 


I 


3 
10: II C": G=O: CLEAR :B=10 


D 4 
Input data 2 
20: INPUT "DATA 1=";C 
30: INPUT "DATA 2=";0 
E 5 
v 
40: A(B)=C+D/100000 


F 6 
v 
SO: B=B+1:G=G+1 
60: GOTO 20 


G 7 
v 
70: "A":D=O:GOTO 90 
' 
H 8 
v 
80: "B":D=1 
I 
90: FOR C=10TO G+8 
I 
I 
9 
1 DO: FOR A=C+1TO G+9 


..J 10 
Data area 
110: IF D=1LET E=INT A( C) :F=INT A(A):GOTO 13 


0 


K 11 
120: E=A(C)-INT A(C):F=A(A)-INT A( A) 
/ 


L 12 
130: IF H*E>H*FTHEN 150 
140: B=A(C):A(C)=A(A):A(A)=B 


M 13 
150: NEXT A 


N 14 
160: NEXT C 
170: FOR A=1TO G 


0 
15 
180: B=A+9 


p 16 
190: E=INT A(B) :F=A(B)-INT A(B):F=F*100000 
200: PRINT USING "####";A; US lNG "##########" 


Q 17 
;E;F 
210: NEXT A 
R 18 
220: END 
s 19 
230: "F":H=-1:END 
240: 
II D": H=1 
T 20 
250: END 


u 21 
359 
v 22 
w 23 


X 24 
y 25 
z 26 
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SHARP 


Title 
I 


PROGRAM NO. 
BIORHYTHM 
P4- I-1 


[ Formula] 


' 
The idea of biorhythm is that each of man's physical, sentiment and Intelligent has a rhythm 
from the very day of his birth. 


.. 
Physical (P): 
a cycle of 23 days 


Sentiment (S): 
a cycle of 28 days 


Intelligent (I): 
a cycle of 33 days 


The result of calculation with respect to date on which his condition becomes the worst is as 
follows: 


P: 
0, 11 or 12 


S: 
0, 14 


I: 
0, 16or17 


Calculation can be made, however, only for the person whose date of birth is on or after 1st 
of March in 1900. 


[Example] 


·~ 
To find the biorhythm on 3rd of March, 1977 for one whose date of birth is 4th of February, 
1954: 


[ Operation ] 


C LOAD. V'I1V' 
)ENTER) 


Display: . P: AFTER 1.5 
(Means the date 1.5 days after the target date is the worst day in 
respect to the constitution.) 


S:TODAY 
(Means the target date is the worst day in respect to the sentiment.) 
I: AFTER 3.5 
(Means the date 3.5 days after the target date is the worst with 
respect to the mentality.) 


Input 
Display 
Note 
Input 
Display 
Note 


1 I SHFTI 
~ BIRTHDAY? 
11 


2 
1954 )ENTER) 
? 
12 


3 
2 
)ENTER) 
? 
13 


4 
4 
)ENTER) 
TARGET? 
--- 
14 


5 
I 97 7 I ENTER I ? 
15 


6 
3 
)ENTER) 
? 
16 


7 
3 
)ENTER] p AFTER 1.5 
17 


8 
[ill]!] s TODAY 
18 


9 
[ENTER) I AFTER 3.5 
19 


10 
I SH FT I 
~ 
20 
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PROGRAM NO. 
Title 
BIORHYTHM 
P4-I-1 


1Memory content 


A 
1 
v 


8 
2 
v 


c 3 
v 
10: 
II A": INPUT "8IRTHDi; Y ?",Y,f"i,D 
20: GOSUG 500 
D 4 
Day 
30: :\=N 


E 
5 
L,Q: "O":INPUT "TARGET '?",y,[.l,D 
50: GO SUB 500 
F 
6 
60: P=N-X 


G 7 
70: 
t~S:::"P" :8=23 


80: GO SUB 540 


H 8 
90: 
J\~~="S" :8=28 


I 
9 
100: GO SUB 5l,Q 
110: t\$="1" :8=33 


J 10 
120: GO SUB 540 


K 11 
130: END 
500: IF f<1-3>=0LET ~~+1 :GOTO 520 


L 12 
510: Y=Y-1 :f~=13+N 


M 13 
Month 
520: rJ::: INT (365.25*Y)+HIT (30.6*1·1)+D 
530: RETUfW 


N 14 
N 
540: C=P-HJT (P/B)*O:OEEP 2 


0 
550: IF C>B/2LET Q=D-C:GOTO 5lf0 
15 
560: IF B/2=CPRINT A'J> ;" TODAY" :RETUfHI 


p 16 
v 
5 70: IF C=OPRINT A$; II TODAY" :HETURN 


Q 
580: Q=B/2-C 
17 
v 
590: PRINT AS;" AFTER" iUSHJG "ttt+ll##:.t.tt";o 


R 18 
600: RETURN 


s 19 
337 


T 20 
u 21 
v 22 
w 23 


X 24 
v 


y 25 
Year 
z 26 
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SHARP 


Title 
CALCULATION OF VISCOSITY INDEX OF 
PROGRAM NO. 


PETROLEUM PRODUCTS 
P4-l-2 


[ Formula] 


This program calculates the viscosity index of petroleum products by the kinematic viscosity at 
temperatures of 37.78°C and 98.98°C. 
* In the case of viscosity index between 0 and 100 ( 100 not included) 


VI= L-U 
L-H X 100 
-(1) 


* In the case of viscosity index over 100 ( 100 included) 


VIE= I oN- I 


0. 0 0 7 5 + I O O 
-(2) 


VN = 
H 
-(3) 
-u 


In the case of oils having viscosity index ofless than 100, use the formula (1) for calculation; 
and 100 or over, the formulas (2) and (3). 


Notes: 
U: kinematic viscosity of sample oil at 37. 78°C 
V: kinematic viscosity of sample oil at 98.98°C 


~ 
H: kinematic viscosity of oil of viscosity index 100 having the same viscosity as sample 
oil at 98.98°C 


L: kinematic viscosity of oil of viscosity index 0 having the same viscosity as sample oil 
at 98.98°C 


* Unit of kinematic viscosity: eSt 


[ Example] 


u 
v 
L 
H 
VI/VIE 


8 2. 5 
9. I 
138.18 7 7. 7 4 VI 
= 
9 2. 12 


2 4. 71 
5. I 5 
45.66 3 I. 6 9 VIE 
=15 5. 7 9 


[ Operation ] 


CLOAD v I 2 'V 
(UTERI 


Input 
Display 
Note 
Input 
Display 
Note 


1 
ISH FT] 
~ U= 
11 
I SHFT( ~ 
U= 


2 
8 2. 5(EIT£R( V= 
12 
2 4. 71 (£ITER( 
V= 


3 
9.1(£1TER( L= 
13 
5. I 5 [[illi] L= 


4 
I 38. I 8(£1TER( H= 
14 
4 5. 6 6 (ENTER( H= 


5 
7 7. 7 4 ~!ill] VI=92.12442091 
15 
31.6 9 (£ITER( VIE= 155.7854833 


6 
16 
7 
17 


8 
18 


9 
19 


10 
20 
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Title 
CALCULATION OF VISCOSITY INDEX OF 
PROGRAM NO. 


PETROLEUM PRODUCTS 
P 4- I -2 


Memory content 


A 1 
u 


B 2 
v 
c 3 
L 
10: "A":INPUT "U=";A 


D 4 
H 
20: INPUT "V=";B 


E 5 
30: INPUT "L=" ;,C 
40: INPUT "H=";D 


F 6 
SO: X=(C-A) /(C-D)*(2 


G 
60: IF X>=E2GOTO 90 


7 
70: BEEP 2:PRINT "VI=",X 


H 8 
80: END 


I 
9 
90: Y=(1QA((LOG D-LOG A)/LOG 8)-1)/.0075+(2 
100: BEEP 2:PRINT "VIE=";y 


~ 10 
140 


K 11 


L 12 


M 13 
N 14 


0 15 
p 16 


Q 17 
R 18 
s 19 


T 20 
u 21 
v 22 
w 23 


X 24 
v 


y 25 
v 


z 26 
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1 


2 


3 


4 


5 


6 


7 


8 
9 


10 


SHARP 


Title 
HEAT CONDUCTION OF HETEROSOLID-STRATUM 


PROGRAM NO. 
P4 -I- 3 


[ Formula 1 


tu (Outside) 


f 
t, 
,, ~ 


X\_'\ I ~li! 


~k:::'"l!( 


A=xXy 


[Example] 


[ Operation ] 


CLOAD '7 I 3 '7 
lfilliJ 


Input 
Display 
Note 


I SHFT] 
~ 
INPUT X,Y 
11 


I 
]ENTER] 
? 
12 
I 
[I!TE]] INPUT L,K 
13 


0. 2 5 
]ENTER] 
? 
14 
1.2 
~ill] INPUT L,K 
15 


0. I 2 
[ENTER] 
? 
16 


0. 25 ffiiRJ INPUT L,K 
17 


0. I 5 l1!illl 
? 
18 


0. 7 5 l!!lliJ INPUT L,K 
19 


[illii] INPUT TO,TU 
20 
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Heat loss q = 
to 
- 
tu 


I! 
I! 
[Kcal/h] 
_1_+_2_+ ... 
k1A 
k 2 A 


k =heat conduction ratio [Kcal/m·h·deg] 


t 
_ __!!__Q_ 
0 
k1A 


lz = t -~ 
1 
kzA 


ln = fn-1 
q f!n 
----,;;;A 


(Input up to 10 strata is possible.) 


x =I [m] 
y =I [m] 


1!1 = 0. 2 5 [m] 
k1 = I. 2 [Kcal/m· h · deg] 


f!z = 0. I 2 11 


1!3 = 0. I 5 11 


k2= 0. 2 5 


k3= 0. 7 5 


II 


II 


Find t 1 and t 2 , provided to is 900°C 
and tu is 100°C. 


Input 
Display 
Note 


9 0 0 [ill]] 
? 
I 0 0 l1!illJ 
Q = 90 0.5 62 8 


[ffi[jj] T I = 7 I 2. 3 8 2 7 3 


[EiTE] T 2= 2 8 0. I I 2 57 


[ill"!] T3= 
9 9. 9 9 9 9 


Title 
HEAT CONDUCTION OF HETEROSOLID-STRATUM 
I PROGRAM NO. 


P4-I-3 


Memory content 


A 1 
sl =-ix- 


B 2 
s2 
c 3 
s3 
10: "A": INPUT "INPUT x,y",y,z 
D 4 
s4 
20: Z=Y*Z 


E 5 
s5 
30: Y=O 
40: FOR X=1TO 10 


F 6 
s6 
50: PAUSE X 


G 7 
s7 
60: INPUT. "INPUT L,K",U,V:GOTO 80 
70: X=X-1:GOTO 110 


H 8 
Ss 
80: A(X)=U/(V*Z) 


I 
90: Y=Y+A( X) 
9 
Sg 
100: NEXT X 


.J 10 
slO 
110: INPUT "INPUT TO,TU",S,T 
120: R=(S-T) /Y:PRINT "Q=",R 
K 11 
130: FOR H=1TO X 
L 12 
140: S=S-R*AO}) 
150: PRINT "T";USING "##";VJ;":";USING "##### 


M 13 
#tt.tt##fltt";s 


N 14 
160: NEXT W 
170: END 


0 
15 
229 
p 16 


Q 17 
R 18 
q 
s 19 
to 
T 20 
tu 
u 21 
£; 


v 22 
ki 
w 23 
j 


X 24 
i 
y 25 .ESi 
z 26 
A 


'· 
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SHARP 


Title 
PROGRAM NO. 


VAN DER WAALS' EQUATION 
P4-I-4 


[ Formula] 


This program fmds out temperature (T) by the van den Waals' equation. 


an2 
(P+----y2)(V-nb) =nRT 


n 
loschmidt number (No. of mols) 
a, b: van der Waals' constants 
v 
volume (Q) 
R 
constant of atmospheric pressure 


T 
absolute temperature (K) 


p 
atmospheric pressure 


[ Example] 


Find the absolute temperature T of 1 0-Q oxygen of 3 mols and 4.3 atmospheric pressure, 
provided a is 1.36 ( Q2 · atom/mol2 ) and b is 0.0318 ( Q /mol). 


Answer is 177.84 (K) 


[ Operation ] 


CLOAD 'VJ 4'V 
I ENTER I 


- 


Input 
Display 
Note 
Input 
Display 
Note 


1 
ISH FT I 
(!] 
N= 
11 


2 
3 [illij] P= 
12 


3 
4.3 
lEITER I V= 
13 


4 
I 0 I ENTER I A= 
14 


5 
1.36 
lEITER I B= 
15 


6 0. 0 3 I 8 
lEITER I T(K)= 177.8404508 
16 


7 
17 


8 
18 


9 
19 


10 
20 
-277- 


Title 
VAN DER WAALS' EQUATION 


PROGRAM NO. 
P4 
I 
4 


Memory content 


A 1 
a 
B 2 
b 
c 3 


D 4 
10: "A":INPUT "N=";N 
20: INPUT "P=";P 


E 5 
30:. INPUT "V=";V 


F 6 
40: INPUT "A=";A 
SO: INPUT "B=";B 


G 7 
60: R=.0821 
70: T=(P+A*N*N/(V*V))*(V-N*B)/(N*R) 
H 8 
80: BEEP 3:PRINT "T(K)=",T 
I 
9 
90: END 
118 


..J 10 


K 11 


l 
12 


M 13 


N 14 
n 


0 15 
p 
p 16 


Q 17 
R 18 
s 19 


T 20 
u 21 
v 22 
v 
w 23 


X 24 
y 25 
z 26 
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SHARP 


Title 
(3 COMPONENTS) I 
PROGRAM NO. 
BOILING POINT OF COMPOUND 
p4-I-5 


[ Formula 1 


The boiling point of pure matters can be found using the Antoine's equation. 


log P (rnmHg) = A- 
B 
C + t ('C) 


A, B and C in the above equation are constants. 
If the mol percentage of three components is a, band c (a+ b + c = 1) and their steam pressure 
is Pa, Pb and Pc, the total pressure is represented as "a. Pa + b. Pb + c -Pc". 


In order to find the boiling point at the atmospheric pressure, increase "t" by 1 °C at a time till 
the total pressure becomes 740 mmHg; thereafter, increase "t" by 0.1°C at a time; and stop it 
when the total pressure exceeds 760 mmHg. 


[ Example 1 


Suppose you have a compound of benzine of 50 mol%, toluene of 25 mol% and 0-xylene of 
25 mol%, find the boiling point and equilibrium vapor composition of this liquid. 


[ Operation 1 


CLOAD \715\7 
]ENTER] 


Input 
Display 
Note 
Input 
Display 
Note 


1 
r..S.HfTI 
~ No-1 A, B, C 
11 
80.1 ]ENTER] 
I 
760.0001552 \ 


2 
6.90565 iENTER 
? 
12 
]ENTER] No-2 BOILING 
Check that 


1211.033 .l!TERI 
I 1 0.6 ]ENTER] 
7 59. 4 52 9 0 3 8 
Preaches 
3 
? 
13 
2 
760 mmHg' 
4 
220.79 iENTER] No-2 A, B, C 
14 
1ENT[! No-3 BOILING 


5 
6.95464lE~TERI ? 
15 
I 4 4. 4 ,ENfER, 
3 
7 59.7 7 3 6 2 I 


6 
1344.8 I ENTER I ? 
16 
m~ No-1,2 MOL RATE, ? 


7 
219.482 ~I No-3 A, B, C 
17 
0. 5 ~mRI ? 


8 
6.99891 ]ENTER] 
? 
18 
0. 2 5 ]ENTER] LOWEST BOILING 


9 
1474.679 ]ENTER! 
? 
19 
8 0.1 !!NlE!I BOILING 
9 5. 5 


1 D 
213.686 


1[NT[~ No-1 BOILING 
20 
]ENTER] No-1 
596.6929 
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SHARP 


Title 
1 
PROGRAM NO. 
801 LING POINT OF COMPOUND (3 COMPONENTS) 
p 4 - 
1 _ 5 


Input 
Display 
Note 
Input 
Display 
Note 


1 
[EITEl[ 
No-2 
121.0959701 
11 
2 
[EITER[ 
No-3 
42.39328333 
12 
3 
13 
4 
14 
5 
15 


6 
16 
7 
17 


8 
18 
9 
19 


10 
20 
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Title 
BOILING POINT OF COMPOUND (3 COMPONENTS) 
PROGRAM NO. 
P4-l-5 


Memory content 


A 1 
A 


B 2 
B 
c 3 
c 


D 4 
A' 
10: "A":lNPUT "N0-1 A,B,C",A,o,c 
20: INPUT "N0-2 A,B,C",D,E,F 


E 5 
B' 
30: INPUT "N0-3 A,B,C",G,H,I 
40: INPUT "N0-1 COILING" ,x 
F 6 
C' 
50: GOSU8 500 


G 7 
A!' 
60: PRINT "1",X 
70: INPUT "No .. z BOILING",'/. 


H 8 
B" 
80: GO SUB 510 


C" 
90: PRINT .. 2 .. ,)( 
I 
9 
100: INPUT "N0-3 BOILING",>: 


~ 10 
XI 
110: GO SUB 520 
120: PRINT "3",X 


K 11 
130: INPUT "N0-1,2 MOL RATE '!",J,S 


L 12 
140: INPUT ''LOWEST BOILING", T 
150: X=T:GOSUB 500 


M 13 
160: Y=X*J:X=T:GOSUB 510 


N 14 
170: Y=Y+X*S:X=T:GOSUB 520 
180: X=X*(1-J-S)+Y-740 
0 15 
190: IF X<OLET T=T+1:GOTO 150 


p 16 
200: I<=X-20 
210: IF X<OLET T=T+.1 :GOTO 150 


Q 17 
220: UEEP 5: X=T:PR INT "BOILHJG" ,;: 


R 
230: X=T:GOSUB 500 
18 
240: X=l<*J:PRINT "N0-1",;( 
s 19 
Xz 
250: X=T:GOSUB 510 


T 20 
t 
26C: X:;;X*S:PRINT "N0-2",:< 
27G: X:;;T:GOSUB 520 


u 21 
230: X=X*(1-J-S):PRINT "N0-3",X 
290: END 
v 22 
500: X=A-B/(X+Cl:X=1UAX:~EIURN 


w 23 
v 
510: X=D-E/CX+F):X=10AX:RETURN 
520: X=G-H/(X+I):X=1QAX:RETURN 


X 24 
v 
528 


y 25 
z 26 
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SHARP 


Title, 


PROGRAM NO. 
CANNON SHOT GAME 
P4-X-1 


[ Formula] 
[Outline of the game 1 


This program shows a game in which 
W (Wind velocity) 
shells are fired on at the target. 


1/A 


-.- 
Ones who take part in this game are 
let know only the distance "E" between 
y 
D 
the firing point and target, and the valve 
B 
c 


IJ'Q 
of wind velocity "W". 


Firing point 
Input an initial value not exceeding 
l 
8 digits in the first place. A radius of 


I 
E 
the target is 1. 
When a fired shell crashes into a barrier, 


X 
\l BARRIER v is displayed. 
When the shell gets over the barrier, 


To get over the barrier, the equations mentioned 
the distance between the place the shell 


below should be considered first. 
has attacked and the target is displayed. 


"Acceleration of gravity" g = 9.8 [m/sec2 ] 
When the shell hits the target, VHIT! v 
is displayed. 


x=(V 0 COSQ+W)t = v .. t 
Take the wind velocity into considera- 


y = V 0 sin Q · t - 
4. 9 t 2 = V y t - 
4. 9 t 2 
tion when you make a challenge. 


Then, the following formulae should be satisfied. 


4. 9 
2 


•' 
v 
<!)___:._LA ---A > D 
v .. 
V/ 


.:!....z... 
4. 9 
) 2 
® 
(A+B)- --(A+B 
> D 
v.. 
V.-2 


So that target x = Yx VJ'. can be aimed at. 
4.9 


[ Operation 1 


CLOAD Vx1V ]EITEl] 


Input 
Display 
Note 
Input 
Display 
Note 


1 
ISH FT I 
~ INITIAL= 
11 


2 1 2 3 4 5 6 ]EllER] 
5574 
1 0 
12 
3 
V,Q? 
---------=--- I. Wind velocity W 13 


4 
2 0 0 0 ]EITER] 
? 
.......... Distance "E' 14 


5 
8 0 [EITER] TARGET E 1308045.682 
15 


6 
5574 
1 0 
16 


7 
~,Q? 
17 


8 
1 0 0 0 [EllER] 
? 
18 
9 
6 0 [EllER] rrARGET E 84563.33795 
19 


10 
20 
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Title 
CANNON SHOT GAME 


PROGRAM NO. 
P4-X-l 


Memory content 


A 1 


8 
2 
c 3 
10: "A": Z=O: INPUT "INITIAL=";S:GOSUB 500 
20: D=P:GOSUB 500 
D 4 
30: W=O:GOSUB 500 


E 5 
40: E=P:GOSUB 500 
50: J=0/200:A=E*J:GOSUB 500 


F 6 
(j 
60: J=0/200:C=E*J 


G 7 
Yo 
70: B=E-A-C 
80: BEEP 2:PAUSE E,\! 
H 8 
v. 
90: INPUT "V,Q ?",G,F:Z=Z+1 
I 
9 
Vy 
100: H=G*COS F+W:I=G*SIN F 
110: K=I/H*A-4.9/(H*H)*A*A 


,J 10 
120: L=I/H*(A+B)-4.9/(H*H)*(A+B)*(A+B) 


K 11 
130: IF K>DIF L>DGOTO 150 
140: PAUSE "BARRIER":GOTO 80 


L 12 
150: r~=H*I/ 4.9 :N=M-E 


M 13 
} 160: IF ABS N<1BEEP S:PRINT "HIT!",Z: END 


/ 
c 170: PAUSE "TARGET E",N 


N 14 
180: GOTO 80 


0 
15 
. 500: Q=ABS ( 439147+Q+S) 


510': T=E8+1 :U=23*Q 
p 16 
520: Q=U-INT (U/T>*T 
530: P=INT (E4*G/T) 


Q 17 
540: O=INT ( (2*0./T) 


R 18 
550: RETURN 
393 
s 19 


T 20 
u 21 
v 22 
w 23 


X 24 
y 25 
z 26 
Number of times 
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SHARP 


Title 


PROGRAM NO. 
BALL ROLLING GAME 
P4-X-2 


[ Formula] 


This program is a game where a ball is rolled to 
run through between walls as shown in the 
figure right. Walls of 10-cm width are standing 
10 
20 
30 
40 
50 


at 10-cm intervals. The openings between walls 
points points 
points points points 


ll?'Io-"1?'10 .r- 
- 
- 
are given points: the extreme left is 10 points, 
the next to it is 20 points, etc., up to 100 
points which are given to the extreme right. 
Every time the ball is rolled through an 
opening, points the opening has are added to 
your score. 
rC1/I 


No points are made if the ball runs through the 
aC111 


opening the ball has been previously rolled 
through. You can roll the ball ten times in one 
game. 
When the last throw is over, your score is 
{} 
displayed. 
Competition is made by points players has 
gained. 
A 
Input the distance "a" and a radius of the ball 
"r" in the first place. Then input the angle 
"8" to determine the direction the ball takes. 


[Example] 


a= 100 em, r= 2cm 


[ Operation ] 


CLOAD vx2v [EITERJ 


Input 
Display 
Note 
Input 
Display 
Note 


1 
ISH FT I 
~ DISTANCE RADIUS 
11 
50 
I ENTER I 
30 
6 
Missed 
2 
1 0 0 
[EllER[ 
? 
12 
ANGLE= 
3 
2 
[EiliR] 
0 
1 0 
Point, No.of 13 
29 
[ENTER[ 
60 
5 Run through 
times left 
30-point openin~ 


4 
ANGLE= 
14 
ANGLE= 
r 
5 
1 0 
[ENTER I 1 0 
9 Run through 
15 
37 
[ENTER[ 1 0 0 
4 
Run through 
10-point opening 
40-point openin 
6 
ANGLE= 
I 
16 
ANGLE= 


7 
20 
[ENTER[ 30 
8 
Run through 
17 
8 
[ENTER[ 1 0 0 
3 
Missed 
20-point openin~ 


8 
ANGLE= 
. 18 
ANGLE= 
9 
40 
[ENTER I 30 
7 
Missed 
19 


10 
ANGLE= 
20 
SCORE= 
I 0 0 
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PROGRAM NO. 
Title 
BALL ROLLING GAME 
P4-X-2 


Memory content 


A 1 
a 


B 2 
v 


c 3 
v 
10: "A" :CLEAR 


D 4 
v 
20: J=10 
30: INPUT "DISTANCE RI\DIUS" ,JVK 


E 5 
v 
40: FOR I=1TO 10 


F 6 
SO: BEEP 1:PAUSE O,J 
v 
60: INPUT "ANGLE=";L 
G 7 
70: B=A*TAN L!C=K/COS L 
80: D=INT ((8+10)/20) 
H 8 
90: E=D*20-10: F=E+10 
I 
9 
v 
100: IF (0>0)*(D<11>=0GOTO 150 
110: IF (8-C>E)*(B+C<F)=OGOTO 150 
"' 


10 
No. of times left 
120: IF A(16+0)<>0BEEP 2:GOTO 150 


K 11 
r 
130: A( 0+16) =1 
140: O=O+D*10:BEEP 5 
L 12 
0 
150: J=J-1 
M 13 
v 
160: NEXT I 
170: PRINT "SCORE=";O 


N 14 
v 
180: END 


0 15 
Score 
250 


p 16 


Q 
17 
v 


R 18 
v 


s 19 
v 


T 20 
v 


u 21 
v 


v 22 
v 


w 23 
v 


X 24 
v 


y 25 
v 


z 26 
v 
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SHARP 


Title 
REVERSE GAME 


PROGRAM NO. 
P4-X-3 


[ Formula 1 


This program performs a game in which figures from 0 to 9 are put at random into a ten-figure 
number with each figure used once, and the figures are changed in their places to make the 
number as "1 2 3 ........... 8 9 0" by REVERSE. 


REVERSE is performed, for example, as follows: 


o 6-digit REVERSE: 
3456102987 -+ 3456789201 


o 3-digit REVERSE: 
3456789201 -+ 3456789102 


o 2-digit REVERSE: 
3456689201 -+ 3456789210 


Note that if zero (0) takes the extremely-left position of a number it is not displayed. 
The number of trials is displayed. When a game is over, you can have a choice whether you will 
have another game with the same number or other. 
The less the number of trials becomes, the better. 
Input a number of 8 digits or more as an initial value. 
When a game is over, the display turns out to be 7 SAME- 1 Dl F-2 7.Input "1" if you have 
another game with the same number as before, or "2" if with a different number. 


[ Operation 1 


CLOAD Vx 3v 
[ENTER] 


Input 
Display 
Note 
Input 
Display 
Note 


1 - [illfJ 
~ 
INITIAL= 
11 
[ENTER] NUMBER= 


2 123456789]EITER] 1238679045 
12 
~EITEl] TRY=5 
No. of times 


3 
[EITER] NUMBER= 
13 
]ENTER] SAME-I 
DIF-2 


4 
2]ENTER] 1238679054 
14 
Reverse is performed with the 
5 
[EITEl] NUMBER= 
15 
same number if "1 ]ENTER] ", 
or with a Different number if 
6 
7]EITER] 1234509768 
16 
"2 [ENTER] 
, 


7 
OCma] NUMBER= 
17 


8 
3 ]EITER] 1234509867 
18 


9 
]EITER] NUMBER= 
19 


10 
2]EITER] 1234509876 
' 
20 
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Title 
REVERSE GAME 


PROGRAM NO. 
P4-X-3 


Memory content 


A 1 
No. of digits 


B 2 
1234567890 
c 3 
10: "A":CLEAR :INPUT "INITIAL=";K 
v 
20: L=E3+1 
D 4 
1 0 
30: C=E11/81-11:B=C 
40: D=10:E=D 


E 5 
Count 
50: K=K*23:X=K/L 


F 6 Count of No. of digits 
60: K=K-INT X*L 


?~"'· X=K/D/D:X=X-INT X 
~. 


G 7 
v 
SO: X=X*D+1:X=INT X 


H 8 
v 
90: GO SUB 520 
100: E=E-1: X=E 


I 
9 
110: IF X<>OGOT-0 50 


"" 


120: X=C:H=X 
10 
130: X=2:GOSUB 500 


K 11 
For random digits 
14Ci: PRINT C: INPUT "NUMBER=";X:GOSUB 520 


L 
150: E=E+1:X=C 


12 
For random digits 
160: IF X=BGOTO 180 


M 13 
170: GOTO 130 
180: X=D:GOSUB 500 


N 14 
190: PRINT "TRY=";E 
0 15 
200: HJPUT "SAME-1 DIF-2" ,z 
210: IF Z=2GOTO 3(1 
p 16 
220: C=H:E=O:GOTO 130 


Q 17 
500: BEEP 1 :X=X-1 :IF X<>OGOTO 500 
510: RETURN 


R 18 
52C: /',=X: F=X: G=O 


s 19 
530: C=C/ D: G=G+C- Il!T C:G=G*D 
54G: C=IIH C:F=F-1:X=F 


T 20 
550: IF X<>OGOTO 530 


u 


560: C=1QAA*C+G:RETURN 


21 
393 
v 22 
w 23 


X 24 
y 25 
z 26 


>, 
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SHARP 


Title 
MEMORY TEST 
PROGRAM NO. 
P4-X-4 


[ Formula] 


How many digits indicated at random can you keep in mind temporarily though securely? 
The percentage of right answers necessary for passing this test is 80% after challenging the test 
10 times. In addition, if you answer wrongly three times the display tells you that you are not 
competent for the number of digits you have been trying to remember. 
No. of digits you succeed in remembering 


9 or more ..................... Genius 


8 ··································· Bright 


7 ··································· Good 


6 ··································· Mediocre 


5 ................................... Aging 


4 or less·························· Idiotic 


Input the number of digits you will challenge to remember in the first place. Then a question 
No. 1 is displayed for about a second. Remember it, then input an answer. Repeat this 
performance ten times. When your answer is correct, a sound is heard three times, but if wrong 
no sound is heard. Now challenge a genious for memory! 


[ Operation ] 


CLOAD vx4 v 
[ijill] 


Input 
Display 
Note 
Input 
Display 
Note 


1 
ISH fT I 
~ 
DIGITS= 
11 
ANSWER= 


2 
6]ENTER] 101004 
12 7 7 5 3 6 2 ]ENTER I 934328 


3 
ANSWER= 
13 
ANSWER= 


4 1 0 1 0 0 4 ]ENTER] 424092 
14 9 3 4 3 2 8 ]ENTER] 590543 


5 
ANSWER= 
15 
A total of ten 
6 42 4 0 92]ENTER] 855107 
16 
9 91 71 6 
questions giver 


7 
ANSWER= 
17 
ANSWER= 


8 8 5.5 I 0 7 ]ENTER] 768451 
18 9 9 I 7 I 6]ENTER] MEDIOCRE 


9 
ANSWER= 
19 


10 
768451 
775362 
20 
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Title 
MEMORY TEST 


PROGRAM NO. 
P4-X-4 


Memory content 


A 1 
No. of digits 


B 2 
1 0 8+ 1 
c 3 


D 4 
10: "7\":K::O:L=O 
20: INPUT "DIGITS=";A 


E 5 
30: FOR I=1TO 10 
40: X=ABS C439147+X+Z):B=E8+1 


F 6 
SO: G=23*X:X=G-INT CG/B)*B 


G 7 
v 
60: Y=INT (1QAA*X/8)+1 
70: IF Y<1QA(A-1)GOTO 40 


H 8 
80: BEEP 1:PAUSE USING "############";Y 
I 
9 
v 
90: INPUT "ANSWER=";T 
100: IF T=YBEEP 3:L=L+1:GOTO 120 
~ 10 
110: K=K+1 
K 11 
No. of wrong answers 
120: IF K>=3PRINT "BEYOND YOUR FACULTY !":END 
130: NEXT I 
L 12 
No. of correct answers 
140: IF L<8PRINT "UNSUCCEED": END 
M 13 
150: IF A>=9PR INT "GENIUS": END 
160: IF A=8PRINT "BRIGHT': END 
N 14 
170: IF A=7PRINT "GOOD": END 


0 15 
180: IF A=6PR INT "MEDIOCRE": END 
190: IF A=SPRINT "AGING":END 


p 16 
200: PRINT "IDIOTIC": END 


Q 17 
351 


R 18 
s 19 
T 20 
Your answ~r 


u 21 
v 22 
w 23 


X 24 
v 


y 25 
Value given by computer 
z 26 
v 
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SHARP 


Title 
I 


PROGRAM NO. 
ROCKCLIMBING GAME 
P4-X-5 


[ Formula] 


This is a game played by 2 persons who emulate each other in attaining the summit of a 100- 
meter-high rockwall. 
One of two players has the right of attacking, and can choose either of the followings. 


1. Continuation of attacking the rockclimbing. 
The sum of pips on two dice is given the player as a distance he has gained. However, if one 
of or both of the cast dice show one pip, he is to miss his footing and fall onto the footing 
which he has previously secured. As far as he evades falling, he can keep the attacking right. 
But if he falls, the attacking right is transferred to his competitor, which is told by peeping 
sound. 


2. To stop there for securing the footing. 
In this case, the attacking right is transferred to his competitor. 


[ Operation ] 


CLOAD vx5v 
(ENTER( 


I ' 


Input 
Display 
Note 
Input 
Display 
Note 


1 
ISH FT I 
~ I ST 
Attack of ls 11 
I (ENTER( 
IST=9 2ND=O 
mover 
2 
ATTACK-I DEFEND-2 
12 
DICE 5 
4 


3 
I 
(ENTER( I ST=O 2ND=O 
Height of 1st 
&2nd movers 13 
2ND 


4 
DICE 
5 
4 
Pips of dice 
14 
ATTACK-I DEFEND-2 


5 
1 ST 
Attack of 1st 15 
I (ENTER] IST=9 2ND=9 
mover 


6 
ATTACK-I DEFEND-2 
16 
DICE 2 
1 


7 
2 
[ENTER[ 1 ST=9 2ND=O 
17 
1ST 


8 
DICE 
5 
I 
18 
ATTACK-I DEFEND-2 
Peep sound, 
fall 
9 
2ND 
tttack of 2nd 
mover 
19 
I [ENTER[ 
IST=9 2ND=O 


10 
ATTACK-I DEFEND-2 
20 
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Title 
ROCKCLIMBING GAME 


PROGRAM NO. 
P4-X-5 


Memory content· 


A 1 ! 
I or -I 


B 2 
Pips of dice 
10: "A":G=O:E=O:I=O:H=O 
c 3 
Pips of dice 
20: A=1 
30: GOSUG 500 


D 4 
40: Li=X 


E 5 
Height of 1st mover 
50: GOSUG 500 
60: C=X 


F 6 
70: IF A=1LET Z$="1ST":GOTO r:-u 


G 7 
Height of 2nd mover 
80: Z$="2NP" 
90: BEEP 1 :PAUSE 
Z'~ 
*' 


H 8 
Footing of 1st mover 
100: I1JPUT "ATTACK-1 UEFEf·JD-2" ,y 


I 
9 
Footing of 2nd mover 
110: V=I+G:U=H+E:PAUSE USitlG II tit;' i~ ;; II ; II 1 s T =" ; u 


•II 
2ND="iV 
, 


.J 10 
v 
120: PAUSE "DlCE 
"iBiC 
130: IF Y:;;1GOTO 190 
K 11 
11t0: IF A:::1 LET H=tHE :GOTO 160 


L 12 
150: l=I+Ci 
160: IF l>=100DEEP S:PRINT "2r·JD \JHJ": END 


M 13 
170: IF 1-1>=1 QOSEEP 5 :PRWT "1ST \.JI t.!" :END 


N 14 
130: A=-A~G=O:E=O;GOTO 30. 
190: IF (U=1)+(C::1)<>0BEEP 2: A::-,;: E=O: G::::;: 
0 15 
GOTO 30 


p 16 
200: IF A=1LET E=E+6+C: GOTO 30 
210: G=G+D+C:GOTO 30 


Q 
17 
500: J=qt.J: X=J"'5-INT (J"S) :J=X 
R 18 
510; X=X*"7: X= INT X 
520: IF X<>ORETURN 
s 19 
530: GOTQ 500 


T 20 
Lt04 


u 21 
v 


v 22 
v 


w 23 


X 24 
v 


y 25 
v 


z 26 
v 


-291- 


SHARP 


Title 
PROGRAM NO. 


GUESS-NUMBER GAME 
P4-X-6 


[ Formula] 


This is a game to guess a three-figure number by the computer. 
Every time a trial is made, the number of trials and your input value are displayed for a second. 
Then a comment is displayed for a second. 


For example, if the display shows: 


COMMENT 
1 
1, 


the left figure tells that one of the three figures you have just input coincides with one of the 
computer-chosen three figures and its place is also correct. 
The right figure tells that one of the rest (2 figures) coincides with one of the rest of the com- 
puter-chosen ones but its place is wrong. 


Therefore, if commented as follows: 


COMMENT 
3 
0, 


all the three figures you have input are correct in places as well as figures themselves. So 


VERY GOOD 
and the number of your trials are displayed. 


[ Operation 1 


CLOAD vx6v 
]ENTER] 


Input 
Display 
Note 
Input 
Display 
Note 


1 
[]IDJ 
lN 
INITIAL= 
11 
3 7 6 ]ENTER] 
4 
376 


2 1 23 45 6 (ENTER] X= 
12 
COMMENT I 
0 


3 
1 2 3 ]ENTER] 
1 
123 
13 
X= 


4 
COMMENT 0 
I 
14 
3 8 5 ]ENTER] 
5 
385 


5 
X= 
15 
COMMENT 2 0 


6 
1 4 5 ]ENTER] 
2 
1 4 5 
16 
X= 


7 
COMMENT 1 0 
17 
3 0 5 ]ENTER] 
6 
305 


8 
X= 
18 
COMMENT 3 0 


9 
2 4 6 [ill_R] 
3 
246 
19 
VERY GOOD 
6 


10 
COMMENT 0 0 
20 


-292- 


Title 
GUESS-NUMBER 
GAME 


PROGRAM NO. 
P4-X-6 


Memory content 


A 1 
B 2 
v 


c 3 
Three-figure number 
10: "A" :INPUT "INITIAL=";K 
20: L=L+K 
D 4 
30: K=7+L*L*23 
E 5 
40: K=INT (K/E2):L=K-INT (K/ £3) *E3 :X=L 
50: FOR A=2TO 4 
F 6 
60: GOSUB 500 


G 7 
70: NEXT A 
80: IF <B=C)+(B=D)+(C=D)<>OGOTO 30 


H 8 
90: Y=1 
100: BEEP 1: INPUT "X=";X 
I 
9 
110: PAUSE y,x 
J 10 
Comment 
120: FOR A=6TO 8 
130: GOSUB 500 


K 11 
For random digits 
140 ~ NEXT A 
L 12 
150: J=O:L=6:P=O 
160: FOR A=2TO 4 
M 13 
170: IF A(A)=A(L)LET J=J+1 
N 14 
180: GOSUB 510 
190: GOSUB 510 
0 15 
200: M=F:F=G:G=H:H=M 
p 16 
Coment 
210: L=L-2 
220: NEXT A 
Q 17 
230: Y=Y+1 


R 18 
240: PAUSE "COMMENT 
";usiNG "tit:t'ft.:" ;J ;r 
250: IF J<>3GOTO 100 


s 19 
260: Y=Y-1:BEEP 2:PRINT "VERY GOOD",Y 


T 20 
270: END 
500: A(A)=X-INT (X/10)*10:X=INT (X/10): 


u 21 
RETURN 


510: L=L+1 :IF A(A)=A(L)LET P=P+1 
v 22 
520: RETURN 
w 23 
391 


X 24 
Tried number 
y 25 
No. of times 
z 26 


-293- 


SHARP 


Title 
PROGRAM NO. 
DRIFTING-AND-SURVIVING GAME 
P4-X-7 


[ Formula] 


This is a game to steer a drifted small dinghy to 
get an island of safety in storm. 
The initial drifting location is at (-50, -50). 
Input a distance you desire to gain in each of 
Island 
the x and y directions, though the dinghy does 
-50 
-40 
-30 
-20 
-10 


not move on as you wish due to the wind. 


I 
I 


The wind blows with the velocity of between 
r- -10 
-5 and 5 in the 
X 
and y directions. The 
wind velocity changes at every input. A present 
location is displayed as a comment by the x-y 
-20 


coordinates, each in sign. 
For example, if displayed as follows: 
-r-- 30 


SGN X= 1 
SGN Y = -1 


-r-- 40 


the x coordinate is positive and the y coordi- 
nate is negative. 
.... - ·- ---- --- --- --- - r-- 50 


The radius of the island is 1. When you succeed 
Initial position 
in arriving the island, a landing point and the 
number of trials are displayed. 


[ Operation ] 


CLOAD Vx 7v 
[ENTER[ 


' '· 


Input 
Display 
Note 
Input 
Display 
Note 


1 
I SHFT[ 
~ INITIAL= 
11 
' 
2 I 2 3 4 56 7[ENTER[ X= 
12 
Repeat 


3 
5 O[ENTER[ Y= 
13 
4 
5 O[ENTER[ SGNX=l 
SGNY=I 
14 
5 
X= 
15 


6 
0 [ENTER[ Y= 
16 
7 
0 [ENTER[ SGNX=-1 
SGNY=l 
17 
8 
X= 
18 
9 
2 [ENTER[ Y= 
19 


10 
- 2 [ENTER[ SGNX=l 
SGNY=-1 
20 


-294- 


Title 
DRIFTING-AND-SURVIVING GAME 
PROGRAM NO. 
P4-X-7 


Memory content 


A 1 Wind velocity in x direction 


B 2 Wind velocity in y direction 
c 3 Input value in x direction 
10: "A":X=-SO:Y=-SO:R=O 
20: INPUT "INITIAL=";F 


D 4 
Input value in y direction 
30: GOSUB 500 


E 5 
40: 
A=~1 
50: GOSUB 500 


F 6 
v 
60: B=\-1 


G 7 
v 
70: R=R+1:BEEP 1:INPUT "X="iC 
80: INPUT "Y="iD 


H 8 
90: X=X+C+A:Y=Y+D+B 


I 
9 
I 0 8 + I 
100: E=X*X+Y*Y 
110: IF E>1LET P=SGN X:Q=SGN Y:PAUSE USING " 


~ 10 
##"i"SGN X=";p;" 
SGN Y="iQ:GOTO 3 


K 11 
0 
120: BEEP 3:PRINT USING "##.#"i"X="iXi" 
Y=" 


L 12 
;v;usiNG "#fl#1l"i" 
N="iR 


M 13 
130: END 
500: G=ABS (439147+G+H) 
N 14 
510: I=E8+1:J=23*G 
520: G=J-INT (J/I)*l 


0 15 
530: F=INT (10*G/l) 


p 16 Sign of x coordinate of 
540: \-1=5-F 


present location 
550: RETURN 
Q 17 Sign of y coordinate .of 
301 
present location 
R 18 No. of trials 
s 19 


T 20 
u 21 
v 22 
w 23 
v 


X 24 
x coordinate of dinghy 


y 25 
y coordinate of dinghy 
z 26 
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SHARP 


Title 


PROGRAM NO. 
SOFT-LANDING GAME 
P4-X-8 


[ Formula] 


How can a rocket having a strictly limited quantity of fuel be soft-landed? 
The rocket falls down freely unless the rocket engine be ignited to slow down its descent. If 
ignited too early or if too much fuel is consumed for serving the engine up, the rocket will go 
up to become nothing but dust in the space. But if the engine is ignited too late, the rocket will 
crash into the planetary surface. 
The object of this game is to soft-land the rocket with minimum downward velocity by 
controlling the time of ignition and fuel consumption. 
Gravity of the planet is S m/s2 . 
Fuel consumption of 5 units during a unit time will cancel the gravity. 


Equations: 
H 
height 


H = Ho+ Yo t + ! ae 
v 
velocity 
2 
a 
acceleration of gravity 
y =Yo+ at 
t 
time 


Y2 = Y0 
2 + '2 a H 
Yo: initial velocity 


Yo=-50 
Fo=120 
Ho: initial height 


H0 =50 0 ' 
' 
Fo: initial fuel 
F 
fuel consumed 
F': remaining fuel 


[ Operation ] 


CLOAD vxgv i£mRI 


Input 
Display 
Note 
Input 
Display 
Note 


1 
IJ[ITJ 
~ 
H= 
500 
11 


2 
Y= 
-50 
12 


3 
FUEL= 
120 
13 


4 
'WASTED F = 
14 


5 
1 0 l£mRI 
H= 
4 5 2.5 
15 


6 
Y= 
-45 
16 


7 
FUEL= 
1 1 0 
17 
' 
8 
i 
18 
9 
Repeat 
19 


10 
20 


-296- 


Title 
SOFT-LANDING GAME 
I PROGRAM NO. 


P4-X-8 


Memory content 


A 1 
B 2 
c 3 
10: "A":USING :V=-50 :ll=SOG: 0='120 


D 4 
20: PAUSE "H="iH 


E 5 
30: Pf,USE "V=" ;v 
lrO: PAUSE "FUEL="iQ 


F 6 
50: IF C<=OGOTO 150 
,_,.,. HlPUT "U!l.STED F="iP 
...... '··~ . 
G 7 
70: IF P>QLET P=O 


H 8 
Height 


~~0: Q:::Q-P: O=P-5 
90: H=H+V+0/2:V=V+O 


I 
9 
100: IF H>OGOTO 20 


,J 10 
110: IF AElS H<SIF r\BS V<Sf\diJT "YOU f', ~~ E iU Gil 
T":END 


K 11 
120: PAUSE "H=",H 


L 12 
1.30: PAUSE "V=",v 
140: PAUSE "FUEL:;;",o 


M 13 
150: PRINT "GOOD (; Y" 


N 14 
160: l:ND 


221 


0 15 
p 16 
Fuel consumed 


Q 
17 
Remaining fuel 


R 18 
s 19 


T 20 
u 21 
v 22 
Velocity 
w 23 
X 24 
y 25 
z 26 
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SHARP 


Title 
CALENDER CALCULATION 


PROGRAM NO. 
P4-X-9 


[ Forml!la 1 


This program figures out an unknown day of the week in respect to a known date. 


[Example 1 


February 4, 1954 


February 4, 1978 


[ Operation 1 


CLOAD Vx 9 'i7 [ffi[RJ 


Input 
Display 
Note 
Input 
Display 
Note 


1 
[lliTJ 
00 
YEAR MONTH DAY ? 
11 
ISH fT I 00 
YEAR MONTH DAY ? 
2 
1 9 5 4 [EllER) 
? 
12 
1 9 7 8 [ENTER) 
? 
3 
2 [mfi] 
? 
13 
2[ENTER[ 
? 
4 
4 [ENTER! THURSDAY 
14 
4[ENTER[ SATURDAY 
5 
15 


6 
16 


7 
17 


8 
18 
9 
19 


10 
20 
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PROGRAM NO. 
Title 
CALENDER CALCULATION 
P4-X-9 


Memory content 


A 1 
Year 


B 2 
Month 
c 3 
Day 


D 4 
10: "A":X=1925:GOTO 50 
20: "B":X=1911:GOTO 50 


E 5 
30: "C":X=1867:GOTO 50 


F 6 
40: "X":X=O 
SO: INPUT "YEAR MONTH DAY ?",A,B,C 


G 7 
60: A=X+A 


H 8 
70: IF B-3>=0LET B=B+1:GOTO 90 
80: B=13+B:A=A-1 


I 
9 
90: N=INT (365.25*A)+INT (30.6*B)+C-621049 
100: N=N-1:Y=CN-INT (N/7)*7)*10+110:BEEP 2: 


~ 10 
GOTO Y 


K 11 
110: PRINT 
"~10ND AY": END 


L 
120: PRINT "TUESDAY": END 
12 
130: PRINT "WEDNESDAY":END 


M 13 
140: PRINT "THURSDAY":END 


N 
150: PRINT "FRIDAr':END 
14 
v 
160: PRINT "SATURDAY":END 
0 15 
170: PRINT "SUNDAY": END 


308 
p 16 


Q 17 


R 18 
s 19 


T 20 
u 21 
v 22 
w 23 


X 24 
v 


y 25 
v 


z 26 
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SHARP 


Title 
PROGRAM NO. 
TREASURE-HUNTING GAME 
P4-X-ll 


[ Formula] 


This is a game in which the location of treasure is 
9 


decided by random numbers and a player hunts out 
8 
\ 


the treasure. 
7 
Your initial position is at (0, 0). Input a distance you 
6 
want to cover in each of the x and y directions. 
If you get out of the matrix shown on the right, the 
5 
0 


error indication appears, so try again. 
a, 
4 
A distance between you and the treasure is indicated 


3 
as a hint by the value of "ABS(x-a) + ABS(y-b)". 
You are allowed an energy of 60 at the start of 
2 
treasure hunt. 
The energy decreases by a sum of 
1 
distances in the 
X 
and y 
directions which you 
make. And when you locate the treasure, 'V HIT 'Vis 
0 


displayed and the energy increases by 5. Every time y 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
you input, the following indication appears: 
X 
Example: 


4 
5 
4 
51 


x coordinate of 
y coordinate of 
Distance bet. you 
Remaining 
present position 
present position 
and treasure (Hint) energy 


Every time the treasure is hunted out, a new location of the treasure is fixed by random 
numbers. You continue to hunt the treasure until the energy you have exhausts. The number 
of hunted treasures is displayed at the end of the game. 


[ Operation ] 
. 


CLOAD 'VXll v I ENTER I 
i' 


Input 
Display 
Note 
Input 
Display 
Note 


1 
I sml 
~ INITIAL= 
11 
- 4 !ENTER I HIT 
2 234 5781 I ENTER I 0 
0 
9 
60 
12 
6 
3 
6 
44 


3 
DX 
DY ? 
13 


4 
4 IENTERI 
14 


5 
5 !ENTER\ 4 
5 
4 
5 I 
15 
Continue fill energy exhausts 


6 
DX 
DY ? 
16 


7 
-2 I ENTER I ? 
17 


8 
2 IENTERI 2 
7 
8 
47 
18 


9 
DX 
DY ? 
19 


10 
4 [Nill] 
? 
20 
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Title 
PROGRAM NO. 
TREASURE-HUNTING GAME 
P4-X-ll 


Memory content 


A 1 
x coordinate of target 


B 2 
y coordinate of target 
c 3 
Distance 


D 4 
No. of targets found 
10: "A":Z=60:X=O:Y=O:D=O 


E 
.; 
20: INPUT "INITIAL=";H 
5 
30: GOSUB 500 


F 6 
.; 
40: 
A=~J 
5tl: GO SUB 500 
G 7 
.; 
60: B=W 
H 8 
.; 
70: C=ABS CX-A)+ABS CY-B> 
75: PAUSE USING "#####";x;v;c;z 
I 
9 
80: PAUSE USING "#####";x;y;c;z 


J 10 
90: INPUT "OX DY ?",p,Q 
100: Z=Z-ABS P-ABS Q 
K 11 
110: IF O>=ZBEEP 4:PRINT "TARGET" ,o: END, 


L 12 
120: IF (X+P>=0)*(9>=X+P)*(Y+Q>=0)*(9>=Y+Q) 
<>OGOTO 160 


M 13 
150: PAUSE "ERROR":GOTO 80 


N 14 
160: X=X+P:Y=Y+Q 
170: IF X=AIF Y=BGOTO 190 
0 15 
180: GOTO 70 


p 16 
.; 
190: BEEP 2 :PAUSE "HIT" 
200: D=D+1:Z=Z+5:GOTO 30 


Q 17 
.; 
210: END 
R 18 
500: E=ABS C439147+E+F) 
510: G=E8+1 : H=23* E 
s 19 
520: E=H-INT CH/G)*G 


T 20 
530: W=INT C10*E/G) 
540: RETURN 


u 21 
367 
v 22 
w 23 
.; 


X 24 
.; 


y 25 
.; 


z 26 
Energy 
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SHARP 
YOUR OWN PROGRAM 


Title 
PROGRAM NO. 
p 
- 


. 


Input 
Display 
Note 
Input 
Display 
Note 


1 
11 


2 
12 


3 
13 


4 
14 


5 
15 


6 
16 


7 
17 


8 
18 


9 
19 


10 
20 


PROGRAM NO. 
Title 
p 


~ 


Memory content 
Line number 
Statements 


A 1 


8 
2 
c 3 


D 4 


E 5 
F 6 


G 7 


H 8 


I 
9 


..J 10 


K 11 . 


L 12 


M 13 


N 14 


0 
15 
p 16 


Q 17 


R 18 
s 19 
T 20 
u 21 
v 22 
w 23 


X 24 
y 25 
z 26 


SHARP 
YOUR OWN PROGRAM 


Title 


PROGRAM NO. 
p 
- 


Input 
Display 
Note 
Input 
Display 
Note 


1 
11 


2 
12 


3 
13 


4 
14 


5 
15 


6 
16 


7 
17 


8 
18 


9 
19 


10 
20 


Title 
I PROGRAM NO. 


p 
- 


Memory content 
Line number 
Statements 


A 1 
B 2 
c 3 


D 4 


E 5 


F 6 


G 7 


H 8 


I 
9 


..J 10 


K 11 


L 12 


M 13 


N 14 


0 15 
p 16 


Q 
17 


R 18 
s 19 
T 20 
u 21 
v 22 
w 23 


X 24 
y 25 
z 26 
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